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粗 合 匠 言 ( Assembly Language ) 中 人 害怕 的 唯一 原因 
, 可 能 就 是 它 怪 色 的 ， 有 点 工业 化 味道 的 名 字 了 ; 那 末 ， 般 
什 阅 不 把 它 当成 一 套 ”友善 的 方言 " 来 看 包 ? 因 局 它 正 是 坊 
您 而 设 的 啊 ! 过 本 书 正 是 坑 那 些 需要 使 用 冰 且 玩赏 他 的 Apple 
的 普罗 大 和 案 而 写 的 ， 所 以 在 写作 上 就 探 取 了 能 久 绪 初学 者 容 
易 了 解 、 容 易 跟 得 上 的 法 子 。 随 著 过 本 书 清晰 而 且 雇 进 的 方 
式 ， 带 您 强 览 过 套 请 盲 ， 相 信 您 会 览 得 有 很 多 人 感到 ”和 粗 合 
严 则 不 好 学 " 过 件 事 有 点 值得 合 疑 了 。 

您 还 可 以 晓 您 的 朋友 ， 用 租 合 攻 盲 写 出 来 的 程式 要 此 用 
BASIC 做 的 有 时 候 会 快 上 100 全 1 圈 形 、 卡 通 、 电 动 玩具 敌 
台 ， 和 还 有 很 多 其 它 的 应 用 ， 用 和 粗 合 医 导 来 写 ， 是 更 坑 生 动 的 
;还 有 ， 了 解 一 点 粗 合 语 寺 也 正 是 开 避 Apple 的 监督 程式 、 
DO0S、 和 与 其 它 系 坏 程式 的 大 门 ， 也 含 您 要 充分 了 解 Apple 铺 
了 一 条 坦途 。 

您 晓得 吗 ? 在 Apple ROM 的 深 氏 有 一 个 神秘 今 今 的 ， 
叫做 Sweet 一 16 的 微电脑 .!111! 过 本 书 逮 类 您 如 何 用 它 来 沽 
少 您 的 组 合 医 衣 程式 指令 数目 ; 吉 可 是 在 其 它 的 初等 至 村 上 
投 不 到 的 跌 ………… 。 
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吉 贡 


手册 的 目的 (PURPOSE OF MANUAL ) 


过 本 手册 提供 了 APPLE II 机 器 可 用 的 6502 粗 合 唐 寺 
的 指 今 。 所 包含 的 内 容 适 用 於 初 极 ， 中 圾 和 高 级 程式 设计 师 。 


手册 的 和 范围 (SCOPE OF MANUAL ) 


悍 中 包括 了 基本 符号 和 常用 入 莉 的 解释 。 也 包括 计算 机 
桥 念 的 介 粗 ， 简 单 的 组 合 请 忌 合 子 及 与 APPLEI 有 天 的 
6502 棚 合 东 言 指 仿 的 介 和 。 


`. 通 论 (GENERAL) 


需 什 么 要 另外 写 一 本 专 吕 6502 租 合 放言 的 书包 ? 原因 
是 第 一 ， 目 前 过 方面 的 书 只 有 二 本 。 第 二 ， 其 中 没有 一 本 是 
专门 针对 APPLE 1 计算 机 而 讨论 的 。 赂 然 你 可 从 演 些 书 中 
学 到 和 粗 合 匠 言 的 理论 ， 可 是 对 拥有 APPLE 1 的 使 用 者 而 于 
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了 引 


， 书 中 的 和 范例 御 一 点 用 也 没有 。 

过 本 妊 是 我 做 饲 6502 和 粗 合 靖 言 指导 时 所 得 构 验 的 果 积 
。 居 中 的 内 容 对 初学 者 而 言 冰 不 奴 。 赂 然 不 能 保证 看 完 此 书 
能 精通 到 何 种 程度 ， 但 可 以 确定 的 是 你 一 定 可 以 成 需 具 有 中 
等 程度 的 6502 租 合 语言 的 程式 只， ”精通 ”的 障 段 仍 是 需 
要 径 过 歼 年 的 经 验 才 可 过 到 的 。 

假如 你 便 用 过 6502 ， 则 藉 末 和 章 所 事 的 你 可 能 已 径 知 道 
了 。 但 不 要 跳 过 任何 一 段 ! 某 个 重要 的 绷 节 若 不 详细 了 解 ， 
则 会 影响 到 整 本 书 其 他 邵 分 的 了 解 程度 。 因 此 要 看 过 书 中 所 
有 的 资料 且 在 稳 炉 下 去 之 前 要 确信 你 已 了 解 了 复 否 的 导 分 。 
假如 你 是 初学 者 ， 则 一 定 要 了 解 每 一 节 之 后 才能 稳 炉 看 下 去 ! 

有 很 多 关於 计算 机 理论 和 微 计算 机 的 书 ， 因 此 我 把 关於 
过 些 的 讨论 全 量 减 少 。 假 如 你 对 6502 和 粗 合 语言 很 有 愉 趣 下 
列 的 书 我 推荐 你 应 设 去 买 来 看 : 

HOW TO PROGRAM MICROCOMPUTERS 
by William Barden Jr. 


PROGRAMMING THE 6502 
by Rodney Zaks 


PROGRAMMING A MICROCOMNMPUTER 
by Caxton C，Foster 


6502 ASSEMBLY LANGUAGE PROGRAMNMNING 
by Lance Leventhal 


6502 SOFTWARE CGOURMBT GUIDE & COOKB0O0OK 
by Robert Findley 


路 然 前 面 攀 本 书 都 很 好 ， 可 是 都 不 是 与 APPLE 1 直 搂 
相关 的 。 假 如 你 想 学 好 和 粗 合 彰 哥 则 你 设 看 过 前 面 所 提 的 交 本 
书 ， 和 过 本 手册 。 
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在 讨论 租 合 落 言 之 前 ， 先 车 你 熟悉 一 些 以 后 经 常会 常用 
到 的 名 润 : 

RAM ( 随机 上 处理 记 局 体 ) : 使 用 者 可 以 使 用 的 记忆 体 。 
程式 和 资料 都 存在 RAM 中 。 

ROM ( 仅 芒 记 司 体 ) : 用 来 放 APPLE 的 监督 程式 人 
monitor ) 和 BASIC 的 地 方 。 使 用 者 不 可 将 程式 或 
资料 存在 此 处 。 

MONITOR ( 监督 程式 : 仅 芒 记 恰 体 中 的 一 组 副 程 式 ， 
可 以 使 你 读 入 键 胡 输入 的 资料 ， 在 级 幕 上 显示 出 字 
元 等 。 

BASIC : 代表 整数 BASIC 。 

K : 党 看 到 玫 时 ， 就 把 它 代 换 成 ”x 1024 ”( 即 乘 以 
_ 1024 ) ， 通 常用 来 才 示 记 估 体 的 大 小 。( 如 48K 
)。 

记 人 慌 体 ( memory ) : 坊 所 有 RAM 和 ROM 的 租 合 。 

带 符号 数字 : 任何 合法 的 正 整 数 或 负 整 数 ( 在 目前 运算 
下 合法 的 数字 ) 。 

不 带 符 屿 数字 : 任何 合法 的 正 整数 。 不 万 许 使 用 负 整 数 。 

位 元 租 : 有 局 笨 的 一 种 单位 。 一 个 位 元 粗 可 代表 256 种 
不 同 的 数值 ( 如 0-255 之 问 的 整数 ) 。 

字 (WORD ) : 由 二 个 位 元 棚 圳 成 的 。 用 一 个 " 字 ”， 
可 代表 65, 536 种 不 同 的 数值 ( 如 0 ~ 65535 之 问 
的 整数 ， 或 - 32768 ~ 32767 之 间 的 带 符号 数字 )。 

文法 ( syntax ) : 程式 王 言 中 用 来 规定 句子 车 构 的 法 由 

位 址 ( address ) : 坑 二 个 位 元 租 所 租 成 的 ， 用 来 指 到 
64K 个 可 用 记 人 局 位 冒 中 的 某 一 个 。 一 个 位 址 也 是 一 
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-个 字 ， 但 一 个 字 不 一 定 是 一 个 位 址 。 
页 ( PAGE ) : APPLE IT 计算 机 中 65536 个 位 元 组 芒 
分 成 256 个 片段 ， 每 个 片段 由 256 个 位 元 租 粗 成 。 
每 个 片段 称 乱 一 页 ， 炉 号 从 0 到 255。 
第 0 页 : 记 旬 体 中 最 前 面 的 256 个 位 元 祖 称 贷 第 0 页 。 
当然 也 有 第 一 页 、 第 二 页 ， 可 是 在 机 器 中 最 常用 的 
, 是 过 一 个 片段 ， 因 此 特 称 垮 第 0 页 ”。 
扩充 接点 ( solt) : APPLE I 计算 机 中 具有 8 个 与 退 
忱 设备 连接 的 扩充 接点 。 
I/O : 略 入 / 办 出 。 
LISA : 需 Lazer System Interactive Symbolic 


Assembler ( 雷 射 系统 接 角 式 组 合 编 绎 器 ) 的 简称 。 


” 遇 过 装填 ( peripheral ) : 与 计算 机 相 速 接 的 外 邵 构 出 
入 蔚 候 。 


假 届 你 已 熟悉 Apple 的 BASIC 语言 。 本 书 中 只 在 一 些 
例子 中 会 用 到 BASIC， 但 如 你 已 熟悉 BASIC 那 表示 你 已 具 
有 基本 的 程式 珊 计 技 巧 了 。 你 应 先 了 解 一 些 程式 技巧 之 后 再 
来 学 组 合 语言 。 租 合 语言 牵涉 较 广 ， 如 果 你 一 过 学 最 基本 的 
程式 技巧 一 志学 组 合 落 言 ， 则 很 容易 会 使 你 自己 处 於 混乱 的 
状况 下 。 

学 习 任 何 程式 语言 ， 龙 其 是 粗 合 落 言 ， 都 要 有 实际 操作 
的 径 台 。 书 中 的 例子 都 用 LISA ( 需 APPLE | 的 6502 租 
合 编 强 器 ) 。 LISA 对 初学 者 最 渤 合 ， 因 入 它 是 拨 解 式 的 ， 
也 就 是 当 每 一 行程 式 进 入 机 器 后 ， 系 业 会 立刻 抓 出 文法 上 的 
错 训 。 汉 与 APPLE | 中 的 整数 BASIC 很 像 。 其 余 APPLE 1 
IE 可 用 的 租 合 纺 村 器 都 没 过 样 的 功能 。 
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坑 何 要 用 租 合 请 
(WHYy USEASSEMBLY LANGUAGE? ) 
党 速度 是 程式 中 首要 的 要 求 时 ， 或 是 当 你 需要 控制 某 种 
过 过 装 芙 时 或 是 利用 高 障 语 言 无 法 完成 你 的 应 用 问题 上 时， 就 
要 使 用 粗 合 施 言 。 
不 要 把 租 合 冰 言 用 在 商业 或 科学 用 途上 ， 因 入 在 过 方面 
的 工作 中 ， Pascal， FORTRAN 或 Applesoft 会 更 适用 。 浮 
点 的 还 算 内 然 不 是 不 可 需 ， 但 可 能 太 闪 ， 不 是 初学 者 或 中 级 
en 。 
合 蔷 言 所 提供 的 另 一 个 好 不 是 可 与 现 有 的 BAsic 或 
二 或 ”Pascal 的 程式 互相 连接 。 你 可 以 用 粗 合 请 言 
写 时 间 要 求 较 马 格 的 部 分 ， 而 其 他 邵 分 则 以 BASIC 来 写 。 
一 旦 你 对 ”和 粗 合 语言 熟悉 了 之 后 ， 你 会 发 现 它 的 编写 和 
除 错 与 BASIC 程式 的 编写 和 除 错 一 样 地 简单 ! 


Retro Woris 第 二 章 符 号 7 
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概 论 (GENERAL ) 


党 你 看 到 数字 ”4 ”时 ， 你 想到 什么 ? 数字 ”4 ”只 是 
用 来 麦 示 4 个 项 目 过 个 观念 的 符号 。 人 们 在 光 通 时 ， 利 用 许 
多 符号 来 表 过 显 思 。 同 时 ， 人 们 的 适应 力也 相当 强 ， 假 如 我 
说 从 现在 开始 ,用 ”一 一 ”来 代表 4， 你 一 定 可 以 改 得 过 来 
。 几 然 不 一 定 简 单 ， 御 一 定 可 行 。 


计算 机 公 是 很 策 的 东西 ， 它 无 法 改 杰 而且 只 能 了 解 一 种 
层次 很 低 而 人 们 癌 坊 很 准 了 解 的 语言 ， 但 过 站 不 是 租 合 语言 
或 机 器 族 言 。 租 合 或 机 器 蔓 诈 是 人 们 用 来 使 更 低 障 的 语言 较 
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易 被 接受 的 工具 。 奸 算 机 可 以 了 解 的 语言 是 出 机 器 中 许多 电 
和 线 上 不 同 的 伏特 值 所 组 成 的 。 内 然 ， 在 受过 许多 训练 合 ， 人 
们 可 以 了 解 过 些 伏特 值 的 倒 义 ， 可 是 果 曲 兹 不 方便 。 通 常 我 
们 把 伏特 值 用 其 他 方式 代表 ( 位 元 、 芙 候 、0 ，1 等 ) 。 汪 
种 情形 在 平常 语言 中 也 有 相同 的 情况 ， 如 把 法 文中 的 deux 翻 
成 英 妆 中 的 "two ”。 把 伏特 值 改 称 需 "位 元 ”而 一 群 位 元 


则 称 局 ” 字 ” 亦 是 同样 的 情形 。 只 是 把 某 个 较 克 了 解 的 符号 


用 另 一 个 较 容 易 了 解 的 符号 来 代替 而 已 ! 
其 中 翻译 的 动作 发 生 在 许多 个 不 同 的 步 县 中 ， 它 们 是 


伏特 字 三 元 福 字 元 
阶层 之 数位 仿 数目 
(+5VOV) 字 (01) 了 等 等 。， 


注 人 悉 过 些 翻 潮 不 是 由 计算 机 而 是 由 人 来 作 的 ! 记 住 ， 计 

算 机 是 很 条 的 ! 

党 我 们 了 解 计 算 机 只 用 伏特 值 来 表示 事物 后 ， 会 有 一 个 
问题 : 我 们 如 何 用 伏特 值 来 麦 示 事 物 ? 结果 发 现 使 用 二 位 数 
字 ( 位 元 ) 表示 是 很 简单 的 。 我 们 可 和 将 两 种 伏特 值 ( 5V 和 0V 
) 用 两 种 二 位 数字 ( 0 和 1 ) 代表 。 你 可 以 设 定 1 等 於 5V 
而 0 等 於 0V ， 过 设 定 是 任 辣 的 。 和 当然 也 可 以 今 1 等 从 0V 
而 0 等 从 1V。 但 一 般 用 法 都 探 用 第 一 种 的 方式 。 

用 一 个 位 元 ， 我 们 可 表示 二 种 不 同 的 值 或 状态 。 如 同 所 


计 布 林 值 ( 扶 或 假 ) : 符号 ( + 或 -~ )， 是 或 否 ， 并 或 关 等 


都 是 例子 。 


闵 我 们 来 定义 一 些 位 元 的 运算 。 首 先 要 定义 先后 次 序 ， 
因 坑 我 们 时 常 要 比较 二 值 看 看 何者 较 大 。"”0 ”和 "51 ”党 
然 1 比 0 大 。 而 其 他 的 二 元 值 常 需 利用 感觉 来 决定 其 次 序 。 
“和 侍 ”应 设 比 假 大 ， 因 此 今 贯 的 值 优 ”1 ”( 或 5V ) 而 候 
值 思 ”0 ”( 或 0Y ) 。 是 或 否 ， 开 或 天 也 可 以 用 同样 方式 
来 设 定 。 

记 住 5V 和 0V 的 全 义 随 文中 释义 而 定 ，5V 有 时 代表 贰 
， 有 时 代表 数字 ”1 ”而 有 时 又 代表 ”并 ”等 等 。 从 现在 开 
始 ， 我 会 以 ”1 ”来 代表 5V 而 0 来 代表 0V 。 


位 元 字 串 (BIT STRINGS ) 


到 目前 坑 止 我 们 只 讨论 到 -一 个 位 元 的 问题 。 内 然 有 时 候 
一 位 元 就 足 兔 麦 示 我 们 所 要 的 资讯 了， 可 是 有 时 候 务 需要 表 
示 二 个 以 上 不 同 的 值 。 例 如 十 进位 中 的 0 到 9， 有 10. 个 数 
字 ， 可 是 一 位 元 只 能 麦 示 二 个 值 ， 饲 什么 不 用 比较 多 的 位 元 
来 代表 呢 ? 例如 用 10 个 位 元 来 表示 0 到 9 过 10 个 数目 。" 


10 APPLE 租 合 语言 


5 ”就 以 ”0000010000 ”来 表示 。 ”0 ” 则 兮 第 一 个 位 元 
需 1， 其 余震 0 来 表示 。” 9 ” 则 今 最 后 一 位 元 储 1 ， 其 丛 
需 0 来 麦 示 。 如 下 表 所 示 : 

DECIMAL BIT NUMBER 


DIGIT 
0 12334567 8 9 


由 部 站 中 OnOmDP 一 口 
司 口 口 口 口 口 口 口 口 一 
口 口 口 口 口 口 操 口 王 口 
口 口 口 口 口 口 口 上 DO 〇 
口 口 口 口 口 口 王 口 口 口 
口 口 口 口 口 上 汪 口 口 口 口 
口 口 吕 OreOoeoDcD 
吕 口 口 盖 口 口 口 口 口 口 
人 -名 本 全 总 已 -总 
和 
二 加 口 口 口 口 口 口 口 口 


在 我 们 的 例子 中 ， 一 个 位 元 字 串 中 只 有 一 个 位 元 被 设 定 
和 储 1， 而 100100100 的 值 没 有 定义 ， 肖 方法 可 行 但 务 效 率 
不 兔 ! 内 然 每 个 值 都 有 唯一 相对 应 的 位 元 字 申 ， 可 是 公 有 许 
多 唯一 的 位 元 字 捉 尚未 定义 。 因 篇 每 个 位 元 都 估 用 了 到 愉 体 


人 
AND THIS APPLE， FOR ONLY 
$I0.000 COMES COMPLETE 
WITH 3.000 MEMORY CH'”5 
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， 当 然 希 互 在 定义 位 元 字 串 时 能 最 有 效 地 利用 记 己 人 笨 ， 过 样 
也 就 可 以 降低 计算 机 的 成 本 。 

垮 容易 了 解 起 见 ， 考 虑 二 位 元 。 如 前 面 的 融 定 二 个 位 元 
可 玫 示 二 个 不 同 值 ， 等 等 ; 前 面 提 过 一 个 位 元 就 可 麦 示 二 个 
不 同 的 值 ， 也 就 是 说 我 们 至 少 汽 费 了 一 半 的 记 屋 体 。 坑 什么 
不 定义 数目 0 和 1 成 二 位 元 如 王 呢 ? 


人 值 位 元 字 趾 
0 00 
1 01 
再 看 看 下 列 位 元 字 惠 
_ 值 . 位 元 字 囊 


? 10 
? 11 


过 值 河 未 定义 ， 当 然 不 能 再 用 0 与 1， 因 饲 0 与 1 已 径 
等 从 上 列 二 个 位 元 字 溃 了 。 


坑 什 么 不 兮 其 等 外 2 和 3 包 ? 如 下 : 
值 位 元 字 训 


Wo IO 挝 
9 
局 


人 上 比 前 一 种 方 


法 季 省 了 二 个 位 元 。 
假 届 用 三 个 位 元 来 卖 示 值 。 如 前 所 示 ， 最 左 壹 的 0 可 筱 


忽略 不 看 ( 左 过 的 位 元 通常 称 坊 高 位 元 ) ， 如 下 : 
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现在 我 们 尚 有 4 个 未 定 值 。 如 前 面 一 般 ， 将 它们 定义 成 
- 接 下 去 的 4 个 值 ( 4 到 7 )。 尖 样 季 省 了 相当 多 的 记 局 体 。 
-从 0 到 7 过 8 个 值 只 需要 使 用 3 个 位 元 就 可 以 代表 它们 了 
， 使 用 的 记 悍 体 狗 坊 前 面 方 法 的 三 分 之 一 ! 但 我 们 要 表示 0 
到 9， 因此 势必 要 再 加 上 一 位 元 。 再 加 上 一 位 元 后 就 如 下 表 
所 示 : 


-ooeoord 信 


再 多 加 一 位 元 ， 又 多 了 8 种 新 值 ， 几 然 我 们 只 需要 其 中 
的 2 个 ， 但 是 妍 然 有 16 个 值 ， 就 可 以 麦 示 从 0 到 15。 但 我 
们 只 需 麦 示 从 0 到 9， 所 以 四 个 位 元 租 中 的 1010 到 1111 就 
不 鹤 定 义 。 过 座 做 是 温 费 了 一些 所 怪 体 ， 但 因 坑 我 们 只 要 表 
示 由 0 到 9 的 值 ， 因 此 这 汇 费 是 不 可 避 郧 的。 上 比 起 前 面 10 
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个 位 元 ， 仅 用 4 个 位 元 已 经 节省 了 不 少 的 记 局 体 。 通 常 ， 每 
多 加 一 个 位 元 ， 就 使 粗 合 的 数目 增加 一 全 。 例 如 用 8 个 位 元 
可 表示 256 个 值 ， 而 10 个 位 元 可 表示 1024 个 值 ， 而 16 个 
位 元 则 可 表示 65536 个 不 同 的 值 ! 

找 们 发 明了 计算 机 中 使 用 的 数字 系统 。 位 元 字 串 中 的 每 
一 位 元 都 代表 2 的 乘 医 。 第 一 个 位 元 表示 2"( 任何 数 的 0 次 
方 都 需 1 ) ， 第 二 个 位 元 代表 2:= 2， 第 三 个 位 元 坑 2:。 例 
1100101 代表 1x2*+1Xx2s+0Xx2%+0x2+1Xx2 
+0x2:+1Xx2"=10l1。 


用 八 个 位 元 我 们 最 多 可 表示 (128) 二 (64) + (32) 十 
(16) +(8) + (4) + (2) + (1) 再 加 1 ( 因 需 也 可 以 表示 
0 ) 种 或 256 种 不 同 的 值 。 通 常 要 表示 2"-- 1 个 不 同 的 值 需 
要 n 个 位 元 。 如 要 表示 0 到 9 之 间 的 10 个 数目 ，3 个 位 元 
是 不 纲 的 ， 因 需 2: 一 1 = 7， 人 仍然 有 二 个 值 无 法 表示 ， 因 此 
要 多 加 一 位 元 ， 即 使 过 会 源 费 一 部 分 的 位 元 和 粗 合 。 但 是 ， 假 
如 只 有 ? 个 位 元 则 只 能 麦 示 2" 和 芽 不 同 的 值 ( 如 从 0 到 2" 一 1 
之 问 的 数目 ) 

记 住 用 位 无 字 串 亦 可 以 表示 不 是 数目 的 其 他 资料 。 如 颖 
色 红 、 茧 、 黄 和 稼 玫 示 如 下 : 


颜色 二 进位 硒 
BLUE 01 
YELLOW 10 
GREEN 11 


Or possibly the alphabetic characters: 


14 人 APPLE 粗 合 落 言 


字符 二 进位 码 


B 00001 
C 00010 
D 00011 
E 00100 
“有 00101 
其 10111 
Y 11000 
Z 11001 
(UNUSED ) 1】1010 
(UNUSED ) 11011 
(UNUSED) 11100 
(UNUSED ) 11101 
(UNUSED ) 11110 
(UNUSED ) 111l1 


讼 然 有 26 个 字母 ， 就 需要 5 个 位 元 ( 2 = 32 )， 1 
个 是 不 锡 的 ( 24=16 )。 


二 元 算术 ( BINARY ARITHMETIC ) 


我 们 已 经 知道 怎么 样 才 示 资料 了 ， 现 在 看 看 如 何 来 处 理 
过 些 资料 。 


基本 加 法 规则 
(BASIC ADDJIMON RULES ) 


首先 徐 习 一 下 在 十 进位 时 作 加 潜 的 情形 。 假 如 要 加 95 
和 67 二 个 数目 ， 加 的 步 允 如 下 : 
首先 加 5 和 ?7 
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95 
+67 加 5 和 7 


2 结果 垮 2， 进 1 
接警 加 9 和 6 再 加 1 ( 浊 位 ) 
95 


-+67 加 9 和 6 和 1 (由 进位 而 来 的 ) 
62 ”和 灶 果 垮 6， 浊 1 


最 后 得 到 162“。 
二 元 加 法 步 屋 相同 ， 但 更 简单 ， 二 要 基 认 七 个 规则 


1) 0+0 = 0icarry = 0 
2) 1+0 =1icarry =0 
3) 0+1 =141icarry = 0 
4) 1+1 = 0icarry = 1 
5) 0+0+carry = 1;carry = 0 
6) 1+0+carry = 0; carry = 1 
7) 1+1+carry = 1;carry = 1 


因此 作 任何 n 位 元 的 数目 的 加 法 的 步 县 如 下 : 
第 工 步 .) 加 第 一 列 的 0 和 1， 得 1， 浊 位 需 0 


0110 
0111 


1 进位 =0 
”第 2 步 ) 加 第 二 列 的 1 和 1， 得 0， 进 位 坊 1 


0110 
0111 


01 间 位 = 1 
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第 3 步 ) 加 1 和 1 再 加 1 (进位 )， 得 1， 进 位 坊 1 
0110 
0111 
101 浊 位 =1 


第 4 步 ) 加 0 和 0 再 加 1 (和 进位 )， 得 1， 烙 束 有 运算 


0110 
0111 


1101 进 位 =0 


照 此 步 又 可 作 任 何 位 元 数 的 加 法 ， 如 


01101100 1101101 
11101011 iL1O11 


101010111 11101000 


不 带 符 号 的 整数 (UNSIGNED /INTEGERS ) 


到 目前 坊 止 我 们 假设 想 要 使 用 多 少 位 元 就 有 多 少 位 元 。 
但 实际 上 东 不 是 如 此 ， 通 常 我 们 只 有 固定 数目 的 位 元 ( 8 个 
或 16 个 ) ， 因 此 数字 的 大 小 有 一 定 的 限制 用 16 个 位 元 ， 
能 才 示 0 到 65535 之 问 的 整数 ( 2*-1=65535 )。 用 8 
个 位 元 则 能 麦 示 0 到 255 之 间 的 值 。 因 人 垮 6502 是 8 位 元 的 
微 不 理 机 ( 玫 示 只 能 用 8 个 位 元 ) 看 起 来 我 们 只 能 不 理 0 ~ 
255 之 问 的 数值 ， 还 好 ， 人 尚 有 多 精确 度 的 处 理 常规 可 用 。 过 
点 以 后 再 讨论 。 不 带 符号 的 整数 在 定义 0 与 65535 之 问 ， 因 
此 一 个 整数 需要 16 个 位 元 。 


尼 波 ， 位 元 租 和 字 
(NIBBLES (NYBBLES2?)， BYT7ES， 下 WOARDasS ) 

在 书 中 我 们 会 常用 到 长 度 损 4，8 和 16 的 位 元 字 串 。 二 
字 串 长 度 东 非 任 受 设 定 而 是 由 所 使 用 的 硬 体 来 决定 的 。 6502 
多 人 惯 今 其 资料 怖 4 ，8 或 16 位 元 的 和 组合。 

” 尼 波 ”就 是 长 度 坊 4 的 一 个 位 元 字 串 。 前 面 提 过 ， 要 
储存 十 进位 数字 至 少 要 使 用 4 个 位 元 ， 因 此 有 时 候 十 进位 数 
字 以 一 个 尼 波 来 表示 ， 称 坊 二 元 码 十 进位 数 简 写成 BCD。 在 
6502 上 可 以 作 二 元 码 十 进位 数 的 运算 ， 以 后 会 讨论 到 。 

“位 元 组 ”是 长 度 坑 8 的 一 个 位 元 字 训 。 在 6502 中 最 
普通 的 资料 型 驴 是 位 元 组 ， 因 和 垮 6502 的 资料 宽度 是 8 位 元 
。( 即 6502 是 8 位 元 的 处 理 机 ) 。 

“ 字 ” 坟 长 度 是 16 的 一 个 位 元 字 串 。 通 常用 来 存 地 址 
或 整数 。 用 一 字 可 玫 示 65536 种 不 同 的 值 ( 64K ) 。 因 此 
6502 就 可 以 直接 指 到 64 开 记 司 体 的 位 址 了 。 

一 个 位 元 组 包含 了 两 个 ” 尼 波 ”， 而 一 个 字 包含 十 个 位 
元 粗 。 每 个 位 元 字 串 都 有 低层 位 元 和 高 层 位 元 ,低层 位 元 永 
这 是 位 元 雾 而 高 层 位 元 则 坑 位 元 n - 1。 例 如 ,一 尼 波 坑 4 
个 位 元 ， 因 此 它 的 高 层 位 元 坑 位 元 3 ( 记 住 我 们 是 从 位 元 0 
开始 的 ) ， 而 位 元 租 的 高 层 位 元 则 是 位 元 7， 字 的 高 层 位 元 
坑 位 元 15“。 


和 范例 : 
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BET# 竹林 征 钠 妈 人 寺 和 二 


BYTE 
1(9 11100111 


人 

既然 在 一 位 元 租 中 包含 有 二 尼 波 ， 因 此 其 中 一 个 就 称 坊 
高 层 尼 波 而 另 一 个 则 坑 低 层 尼 波 。 低 层 尼 波 由 位 元 0 到 3 ， 
而 高 层 尼 波 则 由 位 元 4 到 7 所 和 粗 成 。 同 理 一 字 中 的 低层 位 元 
和 组 由 位 元 0 到 ?7 和 粗 成 而 高 层 位 元 粗 则 由 位 元 8 到 15 和 粗 成 。. 
过 个 定义 待 以 后 我 们 寻 脸 到 由 八 位 元 租 成 的 资料 时 会 有 用 。 


带 符 号 的 整数 (SIGNED INTEGERS ) 


有 时 候 从 0 到 ( 2 一 1 ) 的 秀 转 不 兔 才 示 资料 ， 过 时 就 
需 多 加 位 元 来 表示 更 大 的 值 ， 可 是 有 时 候 也 需要 表示 小 於 0 
的 整数 。 到 目前 坊 止 我 们 讨论 的 数字 系 杭 还 无 法 麦 示 负 数 。 
因此 我 们 必需 重新 建立 一 个 新 的 数字 系统 。 

虽然 有 许多 用 于 表示 负数 的 系统 可 用 ， 但 因 篇 6502 硬 体 
征 入 车 位 的 限制 : 的 答 数 这样 娄 字 秘 纺 。 浊 系 纺 有 下 列 并 和 
规则 : 

上 探 用 标准 二 元 型 式 

(2) 二 元 数目 的 高 层 位 元 需 符 号 ， 假 如 坊 1 则 表示 负数 否 

则 垮 正 数 。 

(3) 假 如 是 正 数 则 与 其 标准 二 元 型 式 相 同 。 
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(4) 假 如 是 负数 则 以 2 的 定数 型 式 来 表示 。 
2 的 补 数 型 式 是 取 正 数值 ， 再 把 所 有 0 己 1 而 1 沟 0， 
最 后 再 加 上 1 即 可 得 ! 例如 数字 2 的 16 位 元 表示 乱 


0000000000000010 


则 2 的 2 的 定数 计算 方法 如 下 : 
首先 改 多 所 有 位 元 


1111lllililllillill0l 
再 加 上 1 
1111111111111110 


因此 1111111111111110 就 是 - 2 的 2 的 补 数 表示 。 我 们 可 
把 2 的 补 数 转换 视 含 乘 以 ~ 1。 事实 上 ， 求 负数 的 2 的 补 数 
和 结果 会 得 到 相对 的 正 数 。 如 -- 2 


1111111111111110 
它 的 2 的 定数 入 
0000000000000001 
再 加 1 得 
0060000000000010 
即 等 於 2。 


仿 什 么 要 用 过 么 一 个 奇怪 的 方法 吧 ? 用 高 层 位 元 标准 型 
式 不 更 简单 吗 ? 由 下 面 加 法 就 可 以 了 解 过 庆 作 的 理由 了 。 2 
加 一 2 ， 其 步 如 下 : 
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000000000000001p 
1111111111111110， 站 
0000000000000000 “复位 = 工 
假如 我 们 不 考虑 进位 ， 则 等 从 0， 表 就 是 我 们 想 要 的 精 
果 。 可 以 很 轻易 地 证 明 假如 不 考虑 进位 旭 每 次 结果 都 是 正确 
的 。 
“假如 不 考虑 进位 ， 又 如 何 测 庆 是 否 有 淮 位 ( overflow 
) 的 情形 电 ? 因 筷 高 层 位 元 破 视 入 符号 。 因 此 位 元 14 才 是 
芙 正 有 巧 义 的 高 屠 位 元 ， 从 到 位 元 产生 进位 时 就 可 知道 发 生 
座位 情形 了 !} 


十 六 进位 数目 〈HEXADECIMAL NUMBERS ) 


用 二 元 数字 慰 人 们 看 起 来 嫩 太 宛 长 了 ! 因此 在 许多 年 前 
就 有 程式 设计 师 把 二 元 数字 用 八 进 位 数字 代表 ， 过 认 一 来 16 
位 元 的 资讯 就 釉 成 6 个 八 进 位 数 了 。 过 种 八 进 位 数字 系 杭 至 
今 仍 在 一 些 迷 你 计算 机 中 通用 ; 而 在 微电脑 产生 时 又 改 坊 使 
用 16 进位 数 ， 如 此 16 位 元 的 资料 只 需 4 个 16 进位 数字 就 
可 以 麦 示 了 。 这 种 方法 最 大 的 缺点 就 是 人 们 和 尚未 能 熟悉 。16 
进位 数 有 16 种 不 同 数 字 ，0 到 9 是 与 10 进位 数 相同 的 而 最 
后 6 个 数字 和 A 到 下 则 分 别 代表 10 到 15 的 值 ， 就 如 下 面 一 般 


十 
二 各 
Ai 
本 加 口 口 四 Dowonaowwnmb 沾 
T 
区 没 
本 


垮 什么 要 用 16 进位 史 ? 因 香 它 很 容易 被 畏 换 成 二 元 三 
， 反之 亦 然 。 而 十 进位 数 则 不 然 ， 如 11111100 背 不 容易 被 
“转换 成 252 ， 可 转换 成 16 浊 位 的 FC 却 是 很 容易 的 。 要 转换 
二 进位 成 16 进位 数 ， 首 先 把 4 个 位 元 分 成 一 得， 如果 左 过 
不 金 4 位 一 组 则 在 前 面 补 0 ， 然 后 每 4 个 位 元 就 换 成 相对 应 
的 16 准 位 数 。 如 前 例 中 11111100， 首 先 被 分 成 .2 组 4 个 位 
元 ( 1111 和 1100 )， 其 中 1111 等 於 ”F” 而 1100 等 於 
”C ”， 因 此 11111100 就 等 挫 FC | 

反 向 转换 也 很 简单 ， 把 每 个 16 进位 数 换 成 相对 应 的 二 
淮 位 数 即 可 。 如 EFC4 换 成 1110111111010100 。 对 新 的 程 
式 员 而 井 或 许 太 麻 烦 ， 可 是 事实 上 16 进位 数 是 很 方便 的 。 


底数 和 其 毛病 
(RADIX AND OTHER NA4STY DISEASES ) 


现在 我 们 已 径 认 识 十 进位 、 二 进位 和 十 六 进位 数 。 假 如 
看 到 ”100 ” 温 个 数字 ， 如 何 知道 它 是 以 多 少 入 底数 呢 ? 是 


22 APPLEE 钥 合 猎 言 


100 以 2 坊 底 (4 或 是 100 以 10 和 储 底 ( 100 ) 或 100 以 16 
俯 底 ( 256 ) 呢 ? 

坟 避 兄 混 浠 ， 通 常 在 前 面 多 加 一 个 符号 。 假 如 是 二 进位 
则 加 % ，16 进位 则 是 ， 而 10 进位 就 是 ! 但 10 进位 数 前 
面 的 区 分 符号 ”! ”可 以 省 略 ， 所 以 如 果 到 前 面 没有 区 分 符 
号 的 数字 则 是 10 进位 数 ， 如 此 就 不 会 混 消 不 清 了 。 


ASCIN 字 元 集合 (4SCH CHARACTER SET ) 


前 面 提 过 二 元 值 也 可 以 代表 非 数值 的 量 。 计 算 机 常 需要 
上 处理 文字 、 数 字 和 某 些 标点 符号 和 粗 成 的 文字 内 容 。 因 此 就 必 
须 用 不 同 值 代表 每 一 字 元 。 

要 表示 26 个 字母 至 少 要 5 个 位 元 ( 有 32 个 不 同 的 值 ) 
。 再 加 上 0 到 9 的 数字 和 小 写字 母 以 及 一 些 标点 符号 ， 煽 共 
有 96 个 字 要 表示 。 再 加 上 一 些 控制 机 器 的 字 ， 如 游标 控制 
， returmmn ，tab 等 共有 128 个 字母 ， 因 此 需要 使 用 7 个 
位 元 。 如 果 人 克 许 其 他 特殊 字 的 加 入 ， 则 需 再 多 加 一 位 元 ， 那 


” 麻 炉 共 可 以 表示 256 种 不 同 的 值 了 。 


接著 就 要 指定 每 个 字母 所 代表 的 值 了 。 过 壬 我 们 不 建新 
的 码 而 探 用 美国 标准 交换 资讯 码 ( ASCIL ) 。 ASCIl 码 被 
大 多 数 电脑 所 探 用 。 ASCIl 码 中 前 32 个 值 被 设 定 坊 控制 码 
， 包括 return ， line feed ， ， tab 和 其 
他 控制 码 。 接 下 来 的 32 个 值 设 定 需 一 些 常用 的 标点 符号 ( 
如 句点 、 逼 点 、 空 白 等 ) 和 数字 ， 再 接 下 来 32 个 值 则 被 融 
定 坑 大 写 英 文字 母 和 较 少 用 的 一 些 和 栋 点 符号 。 最 后 32 个 值 
设 定 需 小 写 英 文字 母 和 罕见 的 一 些 标点 符号 。 


backspace 
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ASCilt 码 中 后面 的 128 个 值 削 未 规定 义 ， 它 们 是 留 给 使 
用 者 自行 定义 的 “Apple 中 中 ， 剩 下 的 码 由 反 字 和 会 内 的 字 
租 成 。 见 附 儿 A 。 


用 字 元 串 来 表示 指令 
(USING BIT STRINGS 
TO REPRESENT INSTRUCTIONS ) 


字 元 串 不 仅 可 用 来 麦 示 资 料 ， 也 可 以 用 来 表示 指令 。 
假设 在 日 常生 活 中 有 一 些 指令 必须 办 从 。 首 先是 六 鱼 
蹇 ” 叫 你 起 床 ,, 第 二 个 指令 是 " 穿 胡 服 ”， 第 三 个 指 今 是 " 
开车 去 上 班 >， 第 四 个 坊 ” 工作 ”， 第 五 个 指令 是 ” 开车 回 
家 ”， 最 后 则 是 ”上床 睡 澳 ”。 过 些 指令 可 以 被 设 定 如 下 : 


字 元 串 命 兮 
505 Eet out of bed . 
001 Get ready for work 
010 Drive to work . 
011 PerTform required duties. 
100 Drive hope from work. 
101 Go to bed . 


用 壳 些 指令 就 可 以 控制 一 个 人 的 日 常生 活 。 但 上 面 的 设 
定 阔 没有 数值 的 意义 ， 只 是 麦 示 每 次 只 能 作 一 种 动作 ， 而 且 
这 些 动 作 可 以 不 以 上 列 顺序 出 现 ， 例 如 一 个 人 可 能 ”开车 上 
班 ”， 灶 果 发 现 点 了 带 东 西 而 再 ”上 央 车 回 家 ” 拿 ， 其 动作 顺 
序 如 下 : 


24 APPLE 和 组 合 话 言 


000 
001 
010 
100 
010 
011l 
100 
101 


Get out of bed. 

Get ready for work . 

Drive to WoOrk . 
Drive home and Pick up forgotten Items 
Drive back t9 work. 

Perforam required duties. 

Drive hone from work . 

Go to bed . 


使 用 位 元 串 来 表示 指令 是 下 面 龙 对 所 计 论 的 计算 机 的 基 


隐 。 
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第 三 才 
暂时 器 、 指 兮 型 式 和 位 址 


概 葵 (GENERAL ) 


到 目前 坑 止 ， 我 们 讨论 的 资料 型 态 都 没有 限制 。 但 实际 
生活 上 ， 和 错 对 资料 的 大 小 或 运算 有 某 些 限制 。 程 式 员 必须 了 
解 ”APPLEII 的 限制 及 方便 的 地 方才 能 写 好 程式 。 

APPLE Il 主要 有 三 部 分 : 

( 届 中央 上 处 理 单 元 ( 6502 微 处 理 机 ) 

(2) 核 出 / 输入 ( 键 租 、 莹 幕 、 磁 碟 等 ) 埋 元 

(3) 记 殿 体 

APPLE I 上 的 记 懂 体 需 65536 个 位 元 租 。 每 个 位 元 
粗 都 有 位 址 ， 也 就 是 襄 ， 2 
位 元 租 中 的 任何 位 元 粗 作 运算 。 

某 些 ( 事 帆 上 入 5120 个 ) 位 留 在 炉 出 / 队 入 时 所 使 用 
。 其 中 1024 个 位 针 由 莹 幕 双 懂 和 其 储存 的 资料 所 估 用 。 人 
从 记 愉 体 位 典 $400 到 $7FF ) 。 另 外 4K 位 置 保留 给 遇 过 卡 
片 。 剩 下 59K 位 元 粗 用 来 存放 歼 数 程式 ， BASIC 和 Pascal 
等 。 通 常 使 用 者 有 48K 的 位 贸 可 用 。 

中 央 上 处 理 单 元 ( CPU ) 坊 热 行 指 今 的 地 方 。 CPU 
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志 电 及 的 大 脑 。 从 记 司 体 或 输出 和 人 机 器 拿 出 或 进 人 资料 ， 然 
后 在 CPU 内 作 运 算 或 比较 的 工作 。 


6502 微 处 理 机 包括 一 个 算术 辑 单元 ( ALU ) ， 所 有 
加 法 减法 等 都 在 过 里 执行 ， 和 一 个 控制 单元 负责 从 记 悍 体 中 
拿 出 或 存 人 资料 ， 解 指 今 码 ， 同 时 处理 六 个 特别 的 要 存 器 。 
其 中 5 偶 哲 存 器 估 用 8 个 位 元 ( 与 记 慌 体 相同 ) ， 另 外 一 个 
佑 用 16 个 位 元 宽 ( 和 6502 的 地 址 通道 一 样 ) 。 每 个 暂 存 器 . 
都 有 特别 的 功能 ， 因 此 分 别 有 特别 的 名 称 如 下 : 

(累积 器 ( Accumulator ，A 或 ACC ) 

(2) 和 一 要 存 器 (和 ) 

(2)Y 要 存 器 (Y ) 

(4 堆 登 指标 ( SP ) 

(5) 程 式 涡 状 字 ( 了 或 PSW ) 

(6) 程式 标示 ( PC ) 
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“MEMORY RND RERL wogLo pEOPLE HAVE 
GO THROUGH RpPLE TO TARLK TO ONE ANOTHER 人 


聚积 器 (ACCUNULATOR (4 or ACC) ) 


大 部 分 资料 运算 都 在 累积 器 上 上 处 理 。 如 数字 的 加 减 ， 资 
料 从 记 惟 搬出 或 氢 入 也 以 此 坊 中 间 站 ， 所 有 愤 辑 运算 也 在 此 
执行 。 累 积 器 可 说 是 我 们 最 常 使 用 的 杰 存 器 。 


X 暂 存 器 (X-REGISTER (X) ) 


6502 的 芹 存 器 是 有 特殊 用 涂 的 ， 不 能 在 此 作 加 茂 它 
是 用 来 处 理 阵 列 {( array “ ) 的 元 素 字 串 、 指 标 等 。 利 用 驻 
杰 存 器 来 处 理 阵 列 元 素 称 坊 案 引 。 因 此 和 X 要 存 器 又 称 镶 入 索 
引 析 存 器 。 
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Y 暂 存 器 〈(Y-REGISTER(Y) ) 

与 X 要 存 器 一 样 也 是 用 来 作 索 引 的 。 有 两 个 索引 杰 存 器 
， 我 们 就 可 以 作 次 字 串 ， 串 联 和 其 他 阵列 的 画 数 的 运作 了 。 
堆 倒 指标 (SP) ( STACK POINTER (SP) ) 

演 个 特殊 作用 的 要 存 器 在 呼 咱 副 程式 和 从 副 程 式 跳 回 主 


程式 时 或 要 保存 要 时 的 资料 时 将 被 用 到 ， 因 篇 它 只 估 用 8 个 
位 元 ， 所 以 只 能 指 到 256 个 位 址 。( 从 $100 到 $IFF。) 


注 莉 


位 贸 $100 到 $IFF 保留 给 堆 登 指 标 来 用 ， 所 以 千 万 不 
要 用 吉 些 位 蔷 来 存 资 料 和 程式 。 


程式 状况 字 (P 或 PSW) 
(PROGRAN STATUS WORD (P or PSW/) ) 


PSW 事 实 上 不 是 覃 存 器 。 它 是 用 来 储存 7 种 状况 位 元 ， 
供 转 移 指令 执行 时 作 决 定 。 


程式 标示 (PC) ( PROGRAWN COUNTER (PC) ) 
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PC 是 电路 用 来 指 到 现在 正在 执行 的 指 今 的 暂 存 器 。 是 
唯一 的 16 位 元 要 存 器 ( 因 坑 16 位 元 才能 指 到 APPLE 1 
上 65536 个 不 同 的 位 置 ) 。 


指令 型 式 (6502) 
(NSTRUCTION FORNAT (6502) ) 


指 今 是 用 来 告诉 6502 应 设 作 什么 动作 的 。 指 今 是 什么 
? 它 只 是 另外 一 组 存 在 记 馈 中 的 8 位 元 码 。 因 垮 有 8 位 元 ， 
所 以 有 256 种 可 能 的 指令 在 6502 上 ， 事 实 上 只 用 到 120 个 
指令 ， 对 赚 到 过 100 到 120 个 指令 码 称 坑 有效 码 。 其 父 的 称 
坑 无 效 三。 


QGz- 8tc- (AR- 世 (Ar+B) 


向 
一 


JnEMORY LOCRTIONS 


有 运算 码 ( 计算 楼 指 今 ) 是 同 资料 一 样 存在 记 锚 体 中 的 。 
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那么 计算 机 又 如 何 分 辩 是 资料 或 指 邻 呢 ? 通常 记 乌 中 位 元 和 粗 
的 伙 义 是 由 上 下 文 来 决定 的 。 假 如 某 位 元 可 陂 程式 标示 所 指 
到 ， 则 此 位 元 租 就 是 计算 机 指 今 。 我 们 假设 程式 是 顺序 存放 
在 记 己 体 中 ， 也 就 是 说 第 二 个 指 今 是 在 第 一 个 指 邻 之后， 第 
三 个 指 今 之 前 。 


和 范例 : 


记 人 慌 体 
第 一 个 指 今 一 程式 标示 
第 二 个 指 今 
第 三 个 指 今 
第 四 个 指 今 
第 五 个 指 今 
起 初 今 程式 标示 集 第 一 个 指令 的 位 址 处 理 机 就 拿 此 指 兮 
且 孝 行 ， 接 著 程 式 标示 加 1 ， 指 到 下 一 个 指令， 处 理 机 再 取 
出 来 执行 ， 如 此 重 覆 下 去 。 
记 著 计算 机 无 法 分 辨 出 是 程式 或 资料 。 程 式 标 示 所 指 到 
的 就 被 翻译 成 指令 。 


二 位 元 粗 和 三 位 元 组 指 今 
(TWO AND 3-BYTE /NSTRUCTIONS.) 


有 许多 指 今 需要 作用 不 只 1 个 位 元 。 例 如 要 把 一 个 8 位 
元 的 常数 放 入 累积 器 中 ， 要 如 何 来 指明 温 常 数 呢 ? 直接 加 到 
指 今后 面 就 可 以 了 ; 当 16 进位 码 $A9 执行 时 ，6502 就 把 
下 一 位 元 租 的 常数 放 入 累积 器 中 。 一 个 指令 加 一 个 常数 所 以 
是 二 位 元 租 ， 和 党 然 作 完 之 后 ， 程 式 标示 要 加 2 而 不 是 加 1 ， 
否则 常数 会 破 当 作 指 舍 来 执行 。 
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“pROGRAM COUNTER . GETS5 TO SKIPp paTA 
RARFTER RAR TWO BYTE INSTRUCTION 


除了 二 位 元 租 指令 外 ， 还 有 三 位 元 和 粗 的 指令 。 例 如 把 ” 
累积 器 中 的 值 存 到 记 伏 体 中 某 位 置 上 ”， 过 个 指令 由 $8D 和 
一 个 16 位 元 的 位 址 组 成 。 如 ( $8D,$00,$10 ) 会 把 果 积 
器 中 的 值 存在 位 填 $1000 上 而 ( $8D,$Cc3,$48  ) 会 把 值 _ 
存在 $48C3 位 针 上 。 

记 住 党 磋 到 多 位 元 租 指 今 时 ， 程 式 标示 会 自动 增加 跳 过 
多 加 的 资料 。 


范例 : 


A9 “INSTRUCTION #1 LOAD ACC YITH SFF 
FF 


8D INSTRUCTION #2 STORE ACC AT LOCATION S1234 


一 ETC. 总 
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警 告 


计算 机 和 无 法 分 辨 资料 和 有 效 指令 。 在 上 面 的 例 中 ， 假 如 
程式 从 位 填 $1234 开始 ， 则 首先 把 $FF 放 和 人 黑 积 器 中 ， 接 
车 会 破 壤 第 一 个 指令 ( 因 入 第 一 个 指 今 放 在 位 置 $1234 上 )。 


下 面 的 码 即 念 实 际 人 情形 : 

LOC DATA/CODE 
TZ34 一 
12355 FF 
1236 8D 
1237 34 
1238 12 
1239 
ETC ETC . 


要 小 心地 找 位 置 存 资料 ， 和 否则 可 能 会 破 十 你 的 程式 。 


6502 的 位 址 型 式 (6502 ADDRESSING MODES ) 
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6502 微 处 理 机 有 56 种 指令， 可 是 前 面 提 巡 特有 120 征 
不 同 的 指令 码 ， 坟 什么 不 同 呢 ? 因 坊 有 些 运 算 有 好 炎 种 运作 
法 。 例 如 6502 中 有 一- 种 运算 念 " 把 一 个 8 位 元 值 放大 累积 
器 中 ”， 过 运算 ou 作 " 载 入 果 积 器 运算 ”， 简 写成 LDA 。 
LDA ”有 好 多 种 可 以 把 常数 或 记 僵 体 中 某 位 留 的 值 或 障 列 的 
某 一 元 素 或 字 引 放 入 黑 积 器 中 。 过 末 种 运算 有 共同 点 : 将 
6502 累积 器 中 存 入 一 个 新 值 。 同 然 动作 相同 ( 存 入 果 积 器 
中 ) ， 可 是 方法 不 同 ， 因 此 6502 就 用 不 同 的 运算 码 来 代 夫 
每 种 LDA 运算 。 过 种 不 同 称 饥 " 位 址 型 式 ”。 指 今 告诉 让 
算 机 要 作 什么 而 位 址 型 式 则 指明 到 那里 去 拿 资料 。 


直接 位 址 型 式 
(INMNMEDIATE ADDRESSING NMODE  ) 


过 型 式 告诉 计算 机 所 用 的 资料 坊 8 位 元 常数 ， 肾 校 在 指 
今 之 人 后。 在 前 面 例 子 中 ” $A9 ”表示 ”把 下 一 个 位 元 稻 的 伟 
放 和 累积 器 中 ”。 吉 就 是 直接 位 址 型 式 。 过 种 型 式 的 指 分 通 
常 都 是 估 用 二 位 元 租 : 一 坑 指 分， 一 念 直 接 的 资料 。 


和 绍 对 位 址 型 式 
(ABSOLUTE ADDRESSING MODE ) 


有 时 候 要 把 记 全 中 某 位 起 的 值 放 入 果 积 器 中 ， 需 要 -人 
元 粗 来 襄 明 指令 ( LDA ) ， 其 次 要 指明 是 6502 中 65531 
个 位 置 中 的 那 一 个 ， 需 要 二 位 元 粗 位 址 。 过 种 型 式 称 局 ” 移 
对 位 址 型 式 ”， 指 今 就 需要 三 位 元 钥 来 表示 了 : 一 坑 指 今 *， 
两 个 位 元 租 作 坑 位 址 。 运 种 型 式 的 LDA 实际 上 的 指 今 三 俘 
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$AD， 接著 坊 两 个 位 元 租 表示 位 址 ; 先 需 低 障 位 址 ， 和 后 坊 高 
障 位 址 。 例如， 要 把 位 置 $1234 的 值 存 入 肾 积 器 中 ， 则 指 今 
码 应 储 ( $AD,$34,$12 或 AD3412 ) 。 


零 页 位 址 型 式 
(ZERO PAGE ADDRESSING MODE . ) 


6502 中 有 一 种 与 契 对 位 址 型 式 很 类 似 的 ” 需 页 位 址 型 
式 ”。 亦 是 把 某 一 记 屋 体位 革 的 值 放 入 累积 器 中 ， 唯 一 不 同 
点 是 过 种 指 今 只 估 用 二 位 元 粗 :一 集 指 仿 ， 一 储 位 址 。 一 个 
位 元 租 只 有 8 个 位 元 ， 因 此 只 准 有 256 个 不 同位 址 ， 在 6502 
中 它们 对 应 第 震 页 上 的 256 个 位 址 。 坟 什么 要 用 过 种 限制 较 
多 的 型 式 儿 ? 原因 有 二 ， 一 仿 它 只 需 二 位 元 租 ， 所 以 可 省 记 
人 殿 位 冒 ， 第 二 个 原因 是 过 种 型 式 较 稻 对 位 址 型 式 的 速度 人 快 。 
第 需 页 通常 彼 用 来 放 爸 数 ， 而 其 他 位 骨 则 用 来 放 程式 ， 阵 列 
和 字 串 。 


过 引 位 址 型 式 
(CINDEXED ADDRESSING MODE . ) 


前 面 襄 过 X 要 存 器 和 Y 析 存 器 是 用 来 作案 引 查 存 器 。 案 
引 要 存 器 是 用 来 处 理 阵 列 的 元 素 或 字 串 。 记 得 在 整数 BASIC 
中 是 在 阵列 名 称 后 加 个 括号 围 成 的 索引 来 指明 是 那个 元 素 ( 
如 MI(D : 工 坑 索引 ) 。X ，Y 杰 存 器 就 用 来 代替 II。 例如 : 
指令 码 $BD 告诉 6502 ， 把 下 二 个 位 元 组 再 加 上 要 存 器 中 
的 值 当 作 位 址 ， 把 位 址 内 的 值 放 入 累积 器 中 。 例 如 指令 码 
BD 34 12,， 而 和 X 杰 存 器 中 的 值 震 5。 就 才 示 把 1234+ 5= 
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1239 位 冒 内 的 值 放 入 累积 器 中 。 
注 项 


Y 要 存 器 的 用 法 一 榜 ， 只 是 指令 码 不 同 ， 但 效果 相同 。 


间接 位 址 (INDIRECT ADDRESSING.) 
过 种 型 式 较 篮 订 ， 把 指 今 的 下 二 位 元 粗 所 指 的 位 冒 中 的 


值 作 坊 低 障 位 址 ， 而 高 障 位 址 则 到 指 今 的 后 16 位 元 位 址 再 
加 1 所 指 到 的 位 置 上 去 拿 。 待 会 儿 看 些 例子 ， 会 更 容易 了 解 。 


由 Y 间 接 索引 (INDIRECTINDEXED BYY) 


和 与 间接 索引 相似 ， 锋 粗 情 形 待 会 儿 再 寻 葵 。 


闻 接 的 由 X 索 引 (JINDEXED BYX INDIRECT ) ， 
下 面 再 寻 葵 。 


瞄 示 的 位 址 型 式 
CIMPLIED ADDRESSING MODE  ) 


- 即 指 今 本 身 会 表示 所 用 的 资料 是 那 灶 型 能 。 过 种 指 今 都 
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是 一 位 元 和 组 长 


累积 器 位 址 型 式 ， 
(ACCUMULATOR ADDRESSING MODE. ) 


即 运 算是 对 累积 器 中 内 容 所 作 的 过 种 指令 也 是 一 位 元 租 
长 。 


注 穗 


可 以 看 出 6502 中 许多 运算 都 是 属於 果 积 器 位 址 型 式 。 贞 
正 的 累积 器 位 址 型 式 与 其 他 型 式 不同 之 处 在 其 只 用 累积 器 而 
不 需 从 记 乙 体 中 取 到 算 元 。 


相对 位 址 型 式 
(RELATVE ADDRESSING MODE . ) 


过 种 型 式 用 在 所 对 号 并 指令 中 。 下 面 再 洋 相 时 论 。 


车 语 (ADDHRESSING MODE WPRAP-UP ) 


假如 你 人 未 了 解 吉 些 位 址 型 式 ， 没 天 傈 ， 过 只 是 简介 ， 
下 面 会 详 烟 对 论 各 逢 位 址 型 式 的 。 
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EQU EPZ DFS 
LDA LDX LDY S1A STX STY INC DEC 
TAX TAY TXA TYA INX INY DEX DEY 


概 论 (GENERAL ) 


到 目前 坊 止 ， 我 们 都 用 码 来 表示 指令 ， 但 煽 共有 120 种 
不 同 的 指 今 码 ， 要 记 住 多 诊 困 准 。 用 片 语 来 代替 指令 码 就 好 
多 了 。 LISA 就 是 接受 一 些 片 语 然 后 把 它们 翻 成 指令 码 的 程 
式 ， 过 种 程式 称 坊 粗 合 编译 器 。 我 们 不 用 长 的 片 请， 代 之 以 
短 的 符号 来 代表 。 符 号 都 是 三 个 字母 ， 例 如 LDA 代表 " 载 
入 黑 积 器 中 ”， STA 代表 ”储存 累积 器 ”。 购 然 必 须 学 翌 
过 些 符号 ， 但 公 值 得 。 当 术 入 程式 时 ， 只 需 打 入 三 画 字 ,而 
不 需 打 入 整个 句子 了 ! 
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粗 合 语言 的 程式 型 式 
(ASSENMBLY LANGUAGE SOURCE FORNMAT ) 


6502 所 了 解 的 机 器 藩 告 码 通常 称 坊 ”结果 码 ” 
object code，)。 而 人 们 所 了 解 的 符号 则 称 坟 文字 档案 或 原 
始 码 人 Source code. ) 。 

跟 BASIC 的 不 限制 陈述 的 安 挤 不 同 ， 租 合 纱 言 有 固定 
型 式 。 每 一 个 租 合 落 车 陈述 被 分 成 4 李 ， 分 别 是 标 徐 棚 ， 符 
号 栏 ， 运 算 元 椭 和 广 解 椭 。 各 栏 以 空白 来 隔 开 ， 其 中 有 二 
三 栏 需 可 有 可 无 。 


李 


LABEL “NMNEMONIC 0PERAND ;COMNENTS 


标 答 机 的 值 坑 原 始 程式 中 某 一 行 的 标 饶 ， 相 当 於 BASIC 
中 的 行 数 。 所 有 跳 开 的 指令 (BASIC 中 GOTO ) 会 用 到 标 
策 。 但 此 不 的 标 敏 是 个 字 串 ， 不 像 BASIC 中 髓 数字 ，. 字 惠 
的 长 度 含 8 旦 开头 第 一 个 字 一 定 是 个 大 写字 母 。 宗 繁 可 由 大 
写字 母 和 数字 所 租 成 。 


有 效 的 标 粮 例子 : ( EXAMPLES OF VALID LABELS  ) 


LABEL 
LO01 

下 
MONKEY 
二 .已 .C 
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无 效 的 标 答 例子 : 


1HOLD (BEGINS WITH "1") 
HELLOTHERE (LONGER THAN 6 CHARS) 
LBL ,X (CONTAINS ",") 


标签 不 像 BAS IC 中 的 行 数 要 每 行 都 有 ， 只 有 当 你 要 用 
到 某 一 陈 信 时 才 需 要 标 徐 ， 且 必须 从 第 一 格 开 始 写 ， 寅 完 之 
后 要 空 一 格 再 写 符 号 。 

标 敏 可 有 可 无 ， 假 如 某 一 行 没 有 标 货 则 第 一 格 一 定 要 是 
次 白 。 


符号 栏 〈MNEMONIC FIELD. ) 


标 答 棚 之 后 和 需 符 号 栏 ， 其 中 坊 LISA 所 规定 的 三 个 字母 
的 符号 ， 如 LDA,LDX,LDY,，STA…… 等 。 


有 运算 元 机 〈(OPERAND FIELD.) 


此 栏 在 符号 栏 之 后 ， 包 括 位 址 和 位 址 型 式 。 假 如 没有 位 
址 型 式 ， 则 表示 用 绝对 位 址 型 式 。 位 址 可 以 是 个 * 位 址 式 子 
”， 和 BASIC 中 的 算术 式 子 类 似 ， 只 是 过 竺 只 能 用 加 减 法 
。 例如，$1000 + $1 等 於 $1001， 假 如 指 今 需 ” LDA 
$1000 + $1 ”， 则 表示 下 憾 体 位 置 $1001 上 的 值 载 和 时 入 
器 中 。 待 会 再 详细 讨论 位 址 式 子 " 

假如 要 指定 常数 ， 则 在 16 位 元 的 位 址 前 面 加 个 ” 间 ” 
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或 ”/ ”，* 若是 ” #” 则 位 址 式 子 的 低 阶 8 位 元 作 坑 常数 ， 
若是 ”/ ” 则 高 障 8 位 元 作 篱 资料 值 使 用 。 

若是 索引 位 址 型 式 则 在 位 址 式 子 后 面 加 个 ” X ”或 "了 
”， 决 定 是 以 X 坑 索引 或 以 了 坑 索 引 。 

若是 旺 示人 性 位 址 型 式 或 果 积 器 位 址 型 式 ， 则 运算 元 栏 订 
坑 空 白 ， 否 则 就 会 发 生 鱼 届 。 

至 於 间接 ， 册立 阅 案 引 和 加 撤 由 案 引 的 句法 以 全会 对 
论 。 


广 解 〈( COMMENT FIELD.) 


在 运算 元 栏 之 后 可 以 加 上 一 些 对 此 行 指 今 的 解释 ， 但 注 
划一 定 要 以 ”; ” 需 开 藉 且 与 前 栏 之 问 至 少 有 一 格 空白 。 


载 入 和 烛 〈(LOAD GROUP .) 


起 类 指 今 有 三 种 : LDA ( 载 入 累积 器 ) ，LDX ( 载 入 
X 杰 存 器 ) 和 LDY ( 载 入 Y 杰 存 器 )。 壳 些 指令 到 有 运算 元 
棚 所 指明 的 位 起 上 取出 其 值 ， 然 后 放 入 所 指定 的 杰 存 器 中 。 
例如 LDA $ 1FA0O :从 位 冒 $1FAO 中 取 值 载 入 累积 器 中 。 
注意 所 指定 位 起 上 的 值 区 没有 改 园 ， 只 是 抄 了 一 份 放 和 人 黑 种 
器 中 而 已 。 通 常 LDA S$nnnn ( 其 中 nnnn 入 1 到 4 位 数字 
的 16 进位 数 ) 会 把 位 置 $nnnn 的 值 载 入 累积 器 中 。 


和 范例 : 
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LDA $I1F0 一 把 位 填 $11F0 的 值 载 入 累积 器 中 
工 DA $127F 一 一 把 位 置 $127F 的 值 载 人 困 积 器 中 
LDA $0 一 把 位 置 $0 的 值 载 入 累积 器 中 


把 常数 载 入 果 积 器 中 ， 只 要 在 常数 之 前 加 个 符号 ” # ” 
或 / ”来 说 明 要 载 入 运算 元 栏 中 的 16 位 元 式 子 中 的 低 障 
的 8 位 元 或 高 障 的 8 位 元 即 可 。 


条 例 : 


LDA ##$1000 ” 一 把 值 $00 载 入 累积 器 中 
( $00 坑 $1000 的 低 障 位 元 和 粗 
， 而 高 障 位 元 租 $10 破 忽 略 不 管 
) 。 


LDA #$FF ”一 把 秆 $FF 载 人 果 积 器 ( $FF 原 来 
是 坑 $00FF, 但 高 障 位 元 组 被 忽 
略 ) 。 


LDA /8$ 1000 -- 一 把 值 $10 载 入 困 积 器 中 ，$10 坑 
值 $1000 的 高 阶 位 元 ， 因 坊 有 
“/” 符 号， 所 以 取 高 阶 位 元 而 忽 
略 低 队 位 元 。 


LDA /4$FF ”一 一 把 值 $00 载 入 果 积 器 中 ，$00 依 
值 $00FF 的 高 障 位 元 租 。 


LDA /40 “， 一 一 把 值 $00 载 入 累积 器 中 。 值 $0 
的 高 障 位 元 租 ， 和 低 障 位 元 组 都 
是 $00。 


上 面 例子 都 是 把 值 载 入 累积 器 中 ， 也 可 以 把 值 载 人 和 杰 
存 器 或 了 要 存 器 中 ， 指 今 局 LDX 和 LDY 。 只 了 稻 对 和 直接 
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位 址 表示 方法 外 ， 逮 有 其 他 位 址 法 可 用 在 载 入 杰 存 器 指 今 中 。 


存 入 指令 ( STORE /NSTRUCTONS. ) 


我 们 也 可 以 把 累积 器 和 芹 存 器 的 值 存 和 记忆 体 中 。 汪 种 
指 今 有 三 种 : STA ( 从 累积 器 存 伏 ) ，STX ( 从 和 X 暂 存 器 
存 人 ) 和 STY (和 从 Y 要 存 器 存 和 人 )。 在 指 今后 面 要 加 上 所 
要 存放 妈 人 局 体 的 位 址 。 


范例 : 
STA $1000 一 把 累积 器 的 值 存在 位 帆 $1000 上 ， 
累积 器 的 值 不 多 。 
STA $2563 一 一 把 累积 器 的 值 存 和 位置 #$2563 上 ， 
”累积 器 的 值 不 构 。 
STA SFF 一 一 把 累积 器 的 值 存 人 位 贰 $SFF 上 。 


同样 的 ， 可 以 使 用 STX 和 STY 指令 从 入 ，Y 暂 存 器 把 
值 存 和 人 让 慑 体 中 。 


STX $1500 一 一 把 X 析 存 器 的 值 存 入 位 起 外 500 上 
， 存 器 的 值 不 多 。 


STY $220 一 一 把 Y 杰 存 器 的 值 存 入 位 疆 #220 上 。 
注 悉 ， 存 入 指 今 东 不 会 改变 累积 器 和 要 存 器 的 值 。 


现在 我 们 用 学 过 的 一 些 基 本 指 今 来 写 一 个 简单 的 粗 合 请 
得 程式。 二 程式 只 是 把 位 置 $1000 和 $4001 上 的 内 容 移 到 位 
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外 $2000 和 $2001 上 。 程式 执 行 完 之 后 ， 位 坑 $2000 和 $ 
$1000 有 相同 的 值 ， 位 冒 $2001 和 $1001 也 有 相同 的 值 。 最 
简单 的 方法 是 直接 芝 位 冬 $2000 等 於 位 填 $1000 ， 而 位 冒 
$2001 等 於 位 置 $1001， 可 是 冰 没 有 过 种 指令 可 用 ， 只 好 先 
把 位 填 $S1000 的 值 移 到 累积 器 中 ， 再 从 累积 器 移 到 位 去 $ 
$2000 上 ， 同 理 也 把 位 贰 $1001. 的 值 移 到 果 积 器 ， 再 从 时 入 
器 移 到 位 置 $2001 上 。 程 式 如 下 : 


LDA 和 1000 
STA S$2000 


LDA 和 1001 
STA $2001 


所 有 资料 转移 都 要 经由 6502 的 轨 存 器 ， 通 常 都 用 果 生 
器 。 


资料 转移 指 今 
( DATA TRANSFER INSTRUCTIONS ) 


6502 除了 提供 要 存 器 和 记 慢 体 之 间 交 换 资料 的 指 今 外 
， 也 有 晋 存 器 彼此 交换 资料 的 指令 ， 如 从 昧 积 器 移 到 X， 或 
Y 亚 存 器 ， 反 之 从 X ，Y 杰 存 器 移 到 累积 器 中 。 此 外 还 有 从 - 
X 芹 存 器 移 到 堆 登 指 标 和 从 堆 登 指 标 移 到 X 芹 存 器 的 指 今 。 
符号 如 下 : 

TXA -- 一 从 X 杰 存 器 将 值 移 到 果 积 器 

TYA 一 -从 Y 杜 存 器 将 值 移 到 困 积 器 

TAX 一 一 从 果 积 器 将 值 移 到 和 X 要 存 器 

TAY 一 一 从 时 积 器 将 值 移 到 Y 要 存 器 


TXS 一 一 从 XXX 杰 存 器 将 值 移 到 SP ( . 堆 登 指标 ) 
TSX 一 一 从 SP 将 值 移 到 X 要 存 器 
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或 许 你 已 注意 到 没有 直接 从 芹 存 器 移 到 了 要 存 器 或 反 
方向 的 指令 。 可 用 下 列 指 今 来 完成 过 个 动作 。 


从 X 到 Y 从 Y 到 X 


TXA TYA 
TAY TAX 
-或 一 - 或 -- 


STX #$nnnn STY 4nnhnn 
LDY dnnnn LDX $nnnn 


要 存 器 转移 措 今 不 需要 运算 元 ， 过 就 是 虹 示 性 位 址 法 的 
一 种 ， 指 仿 本 身 已 指定 要 在 那个 位 冒 上 作 汉 算 。 


暂 存 器 的 增加 和 沽 少 
(REGISTER /INCRENMENTS AND DECREMENTS ) 


接著 要 计 花 一 些 在 亚 存 器 上 作 运 算 的 指 今 。 首 先 霹 X ， 
Y 查 存 器 的 增加 和 沽 少 等 4 个 指 命 。 ( 增加 表示 加 1 ， 沽 少 
才 示 沽 1 ) 


INX 一 把 杰 存 器 的 值 加 1 ， 值 仍 留 在 和 X 杰 存 器 中 
INT -一 把 Y 要 存 器 的 值 加 1 ， 值 仍 留 在 Y 材 存 器 中 
DEX 一 一 把 和 X 杰 存 器 的 值 减 1， 值 仍 留 在 X 要 存 器 中 
DEY 一 一 殷 Y 要 存 器 的 值 减 1， 值 仍 留 在 Y 查 存 器 中 


由 於 常常 要 把 要 存 器 的 值 加 1 或 减 1， 因 此 过 些 指 今 很 


方便 。 
有 个 问题 即 当 要 存 器 的 值 志 $FF ,而 又 要 加 1 工 ， 或 值 坊 
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$00 而 又 要 减 1 时 会 怎么 样 的 情形 呢 ? 当 值 需 $FF 又 要 加 1 
时 ， 计 算 机 会 恤 其 进位 但 只 取 和 后 面 的 值 $S00， 同 理 若 值 需 
$00， 又 要 减 1 时 ， 会 姥 其 退位 ， 也 取 和 后面 的 值 $FF。 

INX.INY, DEX ”和 DEY 也 是 睫 示 人 狂 位 址 法 ， 因 此 不 
需要 运算 元 。 


增加 和 减 少 指令 〈 /INCREMENT 
AND DECRENMENT /NSTRUCTONS ) 


INC 和 DEC 二 指 今 不 需 烃 由 要 存 器 或 累积 器 ， 而 可 以 
直接 在 记 己 位 置 作 有 运算 。 


范例 : 

INC $2255 一 一 把 位 起 $2255 的 值 加 1， 和 结果 仍 存在 
位 填 $2255 上 。 

DEC $15 ”一 把 位 置 $15 的 值 减 1， 灶 果 仍 存在 位 
蔷 $l15 上 。 


INC 和 DEC 薄 不 是 旺 示 性 位 址 法 ， 因 此 需要 有 退 算 元 
， 它 们 与 载 和 和 存 和 指令 一 样 需 引 对 或 第 0 页 位 址 法 。 记 住 
只 有 8 位 元 ， 假 如 要 境 加 $FF 或 沽 少 $00 则 会 只 取 和 后 面 的 值 


标示 和 释 数 ( LABELS AND VARIABLES ) 


到 目前 需 止 ， 要 用 攀 数 时 ， 都 要 指明 确实 的 位 址 ， 二 不 
太 方便 。 例 如 用 XCOORD 来 代表 旬 上 某 一 点 的 坐标 要 上 比 
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$800 来 代表 更 有 悉 义 。 标 示人 克 许 我 们 可 用 LDA XCOOCRD 
来 代替 LDA $800 ! 在 程式 某 位 置 上 ， 定 义 某 标示 等 於 某 值 
， 以 后 用 汪 标 示 就 代表 过 个 值 。 在 上 例 中 可 定义 XCOORD 等 
於 $800 ， 则 LDA XCOORD 就 相当 於 LDA $800 ， 租 合 稿 
逮 器 会 自动 将 XCOORD 蔡 换 成 $800 。 因此 就 可 用 标示 来 代 
替 位 址 。 你 可 以 用 标示 给 记忆 位 留 较 县 义 的 名 字 。 

但 如 何 今 标示 等 於 某 值 呢 ? 很 简单 ， 可 用 EQU 假 指 今 
。 什么 是 假 指令 ( pseudo instruction ) ? 是 在 程式 中 用 来 
葵 LISA 的 指 今 。 叫 LISA 根据 后 面 的 资料 作 某 些 事情 ! 假 
各 今 不 会 产生 供 6502 微 处 理 机 用 的 码 ! 

EQU 假 指 今 的 写法 如 下 : 


LABEL BEBQU <value> 


标示 和 利 都 要 。 EQU 假 指 今 告诉 LISA 把 标示 和 相关 
的 值 存 人 符号 表 中 , 以 后 在 程式 中 用 到 过 标示 时 ， LISA 会 
在 符号 表 中 找 出 过 标示 ， 且 用 其 值 来 替换 过 标示 。 如 此 你 就 
不 用 训 住 到 记 的 位 址 ， 只 要 如 住所 用 的 释 数 名 称 ( 或 标示 ) 
就 可 以 了 ! 


范例 : 
XCOORD EQU $800 “” 一 今 XCOORD 等 於 $800 


LABEL  EQU $1000 一 一 今 LABEL 等 於 $1000 


LDA XCOCRD 一 和 LDA $800 一 样 
STA LEBEL 一 一 和 STA $1000 一 样 


CONST  EQU $FF22 一 一 售 CONST 等 於 $FF22 
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LDA :#CONST- 一 把 值 $22 载 入 果 积 器 中 ( $ 
22 储 CONST 位 置 上 的 低 阶 
位 元 和 组 ) 


ILDA /CONST 一 一 把 值 $FF 载 入 累积 器 中 ( $ 
FF 坊 CONST 位 填 上 的 高 障 
位 元 租 ) 


INX XCOORD 一 一 把 位 苇 $800 上 的 值 加 1 


DEC LABEL 一 一 把 位 贰 $1000 上 的 值 减 1 


用 EQU 来 定义 奈 示 时 ， 一 定 要 用 绝对 位 址 法 。 如 果 要 
用 第 0 页 位 址 法 旭 用 另 一 指令 EPZ 。EPZ 的 文法 和 EQU 相 
同 o 


和 范例 : 


LABEL EPZ <value> 


值 必 须 小 於 等 於 $FF 。 


但 定义 网 数 时 要 担心 资料 到 底 要 存在 那里 ， 仍 不 方便 。 
假如 可 以 能 只 告诉 LISA 届 我 们 需要 一 位 元 组 的 沟 数 ， 萎 它 
帮忙 找 实际 的 位 置 就 更 好 了 。 假 指令 DFS 就 可 以 作 到 ， 其 
文法 如 下 : 


LABEL DFS <value> 


过 里 不 对 资 料 要 放 在 那 壬 而 如 明 要 保留 多 少 位 元 租 答 你 
的 灵 数 。 通 常 是 一 或 二 个 位 元 租 。 
DFS 今 现在 的 码 位 置 作 坊 殉 数 的 位 址 ， 因 此 在 程式 中 
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要 小 心地 使 用 DFS 假 指 令 ， 以 如 彼 当 成 指 今 来 执行 。 
运算 元 桶 中 的 例子 

(EXPRESSIONS /N THE OPERAND FIELD ). 


”假设 上 面 例 子 中 XCOORD 坊 在 位 置 $800 和 $801 上 的 16 
位 元 值 . LISA 允许 运算 元 栏 中 可 有 简单 的 算术 运 算 如 ”十 ” 
和 “” _ 和 3 o 


范例 : 
XCOORD EQU $800 
LDA #$0 一 清除 累积 器 
STA_XCOORD 一 清除 位 苇 $800 


STA XCOORPD + 1 一 清除 位 塘 $801 


有 些 LISA 的 版 本 还 克 许 用 乘法 ， 除 法 和 一 些 愤 辑 运 算 
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第 五 重 


由 
0 


黑 


1 总 
| 本 


| 本 间 运 
和 抵 车 


CMP CPX CPY CLC CLV SEC CLI SETI 
RE 


BRK JMP BCC BCS BEQ BNE SBMI CLD 
BPL BVC BVS BLT BGE BFL BTR SED 


新 指 今 : 


和 组 合 和 编译 器 
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概 论 〈 GENERAL) 


载 人 和 存 人 指 今 都 是 顺序 执行 的 指令， 在 作 完 此 指 今 之 
后 就 接著 作 下 个 指令 。 但 有 时 候 需 要 改 杰 程式 的 流程 到 其 他 
地 方 去 执行 。 租 合 医 言 中 站 没有 GOTO，FORNEXT 或 IF 
/THEN 尖 些 指令 可 用 ，6502 中 只 有 一 些 跳 开 或 糖 移 ( 

jump and branch  ) 指 今 可 用 。 

最 后 必须 能 叫 计 算 机 停止 最 简单 的 方法 是 BRK 指 今 ， 
当 碰 到 BRK 指 今 时 人 会审 起 丛 声 ， 然 后 把 控制 权 交 栓 APPLE 
监督 程式 。 BRK 指令 有 个 好 上 处， 在 回 到 监督 程式 之 前 会 把 
6502 覃 存 器 的 值 印 出 ， 肖 是 一 种 很 简单 的 输出 型 式 。 


示范 程式 (EXANMPLE PROGRAN ) 


现在 用 载 人 和 BRK 指令 来 写 一 个 程式 。 首先 吓 出 LISA 
， 接 著作 下 列 步 又 : 

( 当 出 现 ”! ”符号 时 ， 打 入 INS ， 然 后 按 CR 键 。 

(2) LISA 在 下 行 中 会 迭 回 一 个 ”1 ”。 

(3) 打 入 一 个 空白 ，LDA #$0 ， 然 后 按 CR 键 。 

(0 LISA 会 在 下 行 中 送 回 一 个 " 2 > 。 ， 

(9) 打 入 一 个 空白 ，LDX. ##$1 ， 然 后 按 CR 键 。 

(6) LISA 会 在 下 行 中 返回 一 个 ”3 ”。 

() 打 入 一 个 空白 ，LDY 井 $2， 然 后 按 CR 键 。 

(8) LISA 会 在 下 行 中 运 回 一 个 ”4 ”。 

(9) 打 和 大 一 个 空白 ， BRK， 然 后 按 CR 儿 。 

0 LISA 会 在 下 行 中 和 返回 一 个 ”5 ”。 


第 五 章 ” 址 合 医 言 51 


叫 打 入 一 个 空白 ， END ， 然 后 按 CR 键 。 

第 11 步 又 告诉 LISA 已 构 到 了 。 程 式 的 千 束 部 分 。 
9 LIS 会 在 下 行 中 适 回 一 个 ”6 ”。 

是 然 已 烃 写 完 程 式 。 

49 打 “control-E ， 然 后 按 CR 键 。 

叫 在 避 幕 的 下 一 行 会 出 现 ”! ”。 
整个 每 幕 如 下 : 


1】 LDA 站 80 
2 LDX #S1 
LDY #S$2 
4 BRK 
5 END 
6 


LISA 现在 等 著 你 打 入 下 一 个 命令 ( command )。 在 
执行 程式 之 前 要 先 把 程式 翻 泽 过 ， 在 ”! ”之 后 打 入 "ASM 
” 即 可 。 在 翻 细 过 程 中 ，USA 会 把 程式 显示 在 蒙 幕 上 。 沉 
“1 ”再 出 现时 打 入 " BRK ”，, 回 到 Apple 星 督 程式 中 


e 在 “* ”出 现时 ， 打 入 ”800G ”再 按 CR 键 就 可 以 执行 
程式 了 ! 此 时 麦克 风 会 发 出 疡 昔 而 每 幕 出 现 一些 讯 号 如 下 : 


0808- ” A=00 X=01 Y=02 P=30 S=-FO 


0808 是 BRK 指 今 在 记 慑 体 中 的 位 置 加 2 。 也 就 是 褒 是 
BRK 指令 被 放 在 位 置 $0806 上 。 在 你 作 程式 侦 错 时 就 会 明 
和 白 扩 什么 要 加 2。 

接著 5 个 值 是 党 执行 BRK 指 今 时 ， 果 积 跨 ，X ，Y 覃 
存 器 和 堆 登 指标 的 值 。 在 本 质 上 ，BRK 指令 和 BASIC 中 的 
END 和 .STOP 陈述 很 像 。 
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跳 开 指 今 ( JMP INSTRUCTION ) 


6502 的 JMP 指令 是 无 条件 的 转移 ( branch ) ， 和 
BASIC 中 的 GOTO 作用 相同 ， 只 是 在 BAS IC 中 只 指明 跳 
到 那 一 行 而 在 此 则 是 跳 到 一 个 息 对 位 址 。 下列 不 断 的 旬 路 ( 
infinite loop ) 一 直 把 位 填 ”J ”的 值 抄 到 位 填 ”I ”上 
， 再 把 位 坑 本 的 值 设 需 0。 


You caN _JMP ro 


万 污 LOCATION  $IOFE 
ww) 


PROGRAM COUNTER JMP $IOFE 


范例 : 
PROGRAM LOC， STATEMENT 


和 800 1 EQU 和 1 


800 LDA J 

和 8035 STA 工 
gg806 LDA 4#S0 
和 808 STA J 
$808 JMP 和 800 
$808 END 


( 注意 EQU 和 END 指 今 不 会 估 记 局 位 坊 ) 
JMP 指 今 都 是 3 位 元 组 长 : JMP 指令 码 ， 接 著 是 目的 
地 的 低 障 和 高 障 位 址 。 

用 稳 对 位 址 有 个 问题 。 首 先 ， 在 写 程 式 时 ， 往 往 渤 不 知 
道 JMP 指 今 的 目的 地 的 位 址 ， 可 用 标示 来 作坊 JMP 指 今 的 
目的 地 位 址 ， 就 和 在 载 入 ， 存 入 指令 中 用 标示 代替 位 址 时 一 
样 。 但 用 标示 时 ， 最 后 是 不 是 扔 要 用 EQU , EPZ, 或 DFS 来 . 
定义 标示 包 ? 不 必 ! 假如 标示 和 指 仿 在 同一 行 ， 且 由 第 一 格 
开始 ， 则 过 指 今 的 位 址 就 作伪 此 标示 的 值 。 前 面 的 程式 可 改 
成 如 下 : 

工 EQU $0 

只 EQU S$1 

LABEL LDA J 
STA 工 
LDA #S0O 


STA J 
JMNP LABEL 
RND 


你 可 以 发 现 遗 比 在 BASIC 中 用 GOTO 更 方便 ， 因 需 不 
必 麻 烦 用 顺序 行 数 ， 尤 其 是 往 前 跳 时 。 态 译 器 察看 ~- 行 的 第 
一 格 是 否 有 标示 。 假 如 在 第 一 格 中 有 一 大 写字 母 ， 则 其 后 的 
字母 ( 直到 空白 或 ”; ”之 前 ) 都 视 坟 标示 的 一 部 分 。 在 标 
示 和 符号 之 问 至 少 要 有 一 格 空白 。 假 如 过 一 行 没 有 标示 ， 则 
第 一 格 一 定 要 是 空白 ， 否 则 篇 绎 器 会 把 符号 当 作 标示 ， 而 把 
运算 元 ( 假如 有 ) 当 作 符号 。 和 结果 会 发 生 错误 ! 因此 记 住 ， 
如 果 没 有 标示 ， 则 -- 定 要 在 第 一 格 留 个 空白 。 


了 
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处理 机 状况 暂 存 器 
( PROCESSOR STATUS REGISTER (P or PSW) 


6502 阔 没 有 IF/THEN 或 FOR/NEXT 指令。 要 测试 
情况 则 可 测试 处 理 机 状况 要 存 器 ( PSW ) 中 的 位 元 。 

PSW 和 6502 其 他 要 存 器 不 同 ， 其 他 要 存 器 都 是 8 位 元 
或 16 位 元 要 存 器 ， 其 中 的 资料 都 被 看 成 8 位 元 或 16 位 元 的 
资讯 ， 但 PSW 则 是 8 个 单独 位 元 的 集合 。 ( 事实 上 只 用 7 
个 位 元 ， 其 中 一 位 元 不 使 用 ) 。 

其 中 四 位 元 由 前 一 个 指 今 的 结果 来 设 定 值 。 例 如 了 暂 存 
器 中 有 一 个 雾 旋 桂 ， 假 如 上 个 指 今 的 结果 储 0， 则 此 旅 标 被 
设 需 1， 人 否则 镶 0。 其 余 二 个 旗 标 由 6502 指令 来 设 定 ， 最 
后 一 个 则 表示 最 近 的 中 断 是 由 BRK 指 今 产生 的 。 


BREAK 旗 标 ( 8REAK FLAG (B) ) 


打 世 旗 标 ( PSW 中 的 位 元 4 ) 只 有 当 上 次 中 断 是 由 
BRK 指 邻 所 产生 时 才 设 定 。 你 可 以 发 现 当 执行 BRK 指 今 时 
， 户 要 存 器 的 值 常常 是 30 ( 有 时 候 会 是 其 他 值 ) 把 30 转换 
成 16 进位 数 则 可 发 现 位 元 4 永 束 是 1， 因 垮 上 个 执行 的 指 
今 是 BRK 指令 


十 进位 旗 标 (pD ， 


十 进位 旗 标 是 由 SED (set decimal) 指 今 来 屋 定 的 
， 而 由 CLD (clear decimal flag) 指令 来 去 除 。 过 个 族 标 用 
来 决定 6502 微 处 理 机 要 使 用 那 一 种 基底 作 算术。 下 一 划 会 
再 详细 讨论 。 


订 除 中 断 旗 标 UNTERRUPT DISABLE FLAG 中 ) 


中 断 不 在 本 书 寻 花 范 围 中 。 但 在 PSW 中 有 一 旗 标 是 用 
来 防止 中 断 的 发 生 ( PSW 中 的 位 元 2 )。 过 个 旗 标 由 指 今 
SEI 来 设 定 而 由 CLI 指 今 来 去 除 。 当 过 族 标 被 设 定时 ， 
6502 的 IRQ 和 线 就 失去 效能 。 


情况 三 旗 标 
(0 CONDITION CODE FLAGS (NVZ,C) ) 
情况 码 族 标 是 由 正常 6502 的 运算 结果 未 设 定 。 当 上 次 
运算 结果 坑 老 时 ，2 族 标 就 伞 设 定 ; 例如 把 $0 载 入 累积 器 
中 ， 把 值 需 1 的 要 存 器 减 1 等 指 今 都 会 设 定 Z 旗 标 。 净 没有 
特别 用 来 设 定 或 去 除 2 旅 标的 指令 ;假如 想 要 改定 Z 族 标 ， 
只 要 把 0 载 入 覃 存 器 ， 而 要 去 除 则 把 不 是 0 的 值 载 入 要 存 器 
即 可 。 假 如 不 想 改 释 要 存 器 的 值 ， 则 只 要 把 某 值 优 SFF 位 甘 
再 加 1 即 可 ， 在 Apple 尧 督 程 式 中 ， 位 冒 $FF 的 值 就 是 
$FF 。 使 用 指 今 " INC $FFC3 ”就 会 使 7 旗 标 被 设 定 。 
同 理 要 除去 民 旗 标 ， 则 把 值 不 是 $SFF 的 位 置 加 1 ， 如 位 冒 
$F800 ， 即 可 。Z 族 标 在 PSW 的 位 元 1。 
假如 前 面 一 个 运算 结果 坑 负 数 ， 则 N 旗 标 就 被 丽 定 。 但 
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6502 要 存 器 中 莫 没 有 和 负 值 。 而 是 以 2 的 补 数 法 来 表示 负数 
,， 且 以 高 障 位 元 作 坑 正和 负 符 号 ， 如 果 高 阶 位 元 坑 1 则 表示 是 
负数 ， 否 则 坑 正 数 。 因 此 N 旗 标 就 等 处 上 次 结果 的 位 元 7 的 
值 。N 旗 标 在 PSW 中 的 第 7 个 位 元 。 

我 们 也 没有 特定 的 指 今 来 设 定 或 除去 N 旗 标 。 如 果 要 设 
定 N 旗 标 ， 可 以 把 值 在 $7F 到 $FE 之 问 的 位 置 加 1 即 可 。 过 
运算 的 结果 都 是 负数 ， 也 就 是 位 元 7 会 是 1。APPLE 长 督 . 
程式 中 位 置 $F804 的 值 就 在 此 范围 内 。 同 理 要 除去 N 旗 标 只 
要 把 值 在 $0 和 $7E 之 间 ， 或 值 需 $FF 的 位 置 加 1 ， 和 结果 会 
是 正 数 ， 也 就 是 位 元 7 坊 0 即 可 。 监 督 程 式 中 位 置 $F800 的 
值 即 是 $SFF ， 过 是 一 个 好 的 愤 择 。 

进位 旗 标 (c) 受 加 法 ， 减 法 ， 上 比较 和 选辑 运算 所 影响 。 同 
时 也 可 特别 由 指令 SEC 和 CLC 来 设 定 或 除去 旋 标 。C 位 在 
PS 允 的 位 元 0 。 
。 、 最 后 一 个 旗 标 是 澄 位 (overflow ) 旗 标 (V) 。 肖 族 标 用 
在 有 符号 的 还 算 中 ， 且 受 加 法 ， 沽 法 和 位 元 测试 运算 所 影响 
。 同 时 也 可 由 指令 CLV 来 除去 ， 但 没有 特别 的 指 今 可 用 来 
设 定 浴 位 族 标 。 在 PSW 中 是 位 元 6 。 
在 PSW 中 没有 用 到 的 位 元 是 位 元 5， 通 常 值 需 1， 但 
”不 能 保 。 没 有 6502 指 今 用 到 此 旗 标 。 
可 坛 著 执 行 下 列 程式 ， 注 悉 对 了 覃 存 器 的 影响 。 

PGM1 : 
老 和 0 
END 


PGM2 : _ 
LDA A 区 1 


PGMS : 


PGM4 : 


PGM5 : 
LDA #S80 
BRK 
END 
PGM6 : 
LDA #S7F 
BRK 
END 


转移 指令 ( BRANCH INSTRUCTIONS (6502) ) 


了 解 了 某 些 运 算 对 PSW 中 的 旗 标 的 影响 之 后 ， 就 可 用 
来 模 插 BASIC 中 的 IF/THEN 陈述 。 因 需 6502 克 许 某 些 分 
歧 指 今 可 以 测试 过 些 旗 标 。 

转移 指 信和 跳 开 指 今 很 像 都 是 改 磷 程式 的 流程 ， 可 是 中 
开 指 今 是 无 条 件 地 跳 并 ， 而 转移 指 今 御 是 有 人 条 件 的 ， 在 跳 开 
之 前 ， 先 作 测试 ， 测 试 PSW 中 某 一 旗 标 假如 符合 条 件 则 
跳 开 ， 否 则 执行 下 一 个 指 命 。 

转移 指令 可 用 来 测试 任 一 种 情况 码 旗 标 ， 看 它们 是 被 设 
定 或 除去 。 下 列 坑 万 许 的 转移 指 今 : 


BCC = 一 假如 进位 族 标 补 除 去 划 跳 天 。 
BC3S 一 假如 进位 旗 标 被 设 定 则 跳 开 。 
BEQ 一 一 假如 民族 标 被 设 定 则 跳 开 。 
BNE 一 一 假如 民族 标 愉 除 去 则 跳 开 。 
BMI 一 一 假如 N 族 标 被 设 定 则 跳 天 。 
BPL 一 一 假如 N 族 标 从 除 去 则 跳 天 。 
BVS 一 一 假如 V 族 标 被 设 定 则 跳 开 。 
BVC 一 假如 V 旗 标 被 除去 则 跳 天 。 
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Bl 


过 些 指 今 和 JMP 指 今 一 样 需 指定 一 位 址 ( 或 标示 ) 。 
范例 : 


LDA #S8$0 
BEQ LSBL1 
LBL2 LDA 半 SFF 
LBL1 BEQ LBL2 


上 例 中 ，0 载 和 果 各 器 中 ， 过 使 得 Z 旗 标 被 起 定 而 使 下 
面 的 转移 指 今 跳 开 到 LBL1 ， 而 在 LBL1 又 有 另 一 转移 ， 假 
如 需 0 则 跳 开 的 转移 指 邻 。 因 船 六 没有 改 灵 暂 存 器 或 记 司 体 
内 的 值 ， 因 此 Z 族 标 不 会 改 妈 ， 也 就 是 分 跳 到 LBL2 上 吉 生 
把 值 $FF 载 入 果 积 器 的 指令 ， 下 个 指令 ( 即 在 LBLI 上 的 指 
今 ) 坊 若 Z 旗 标 被 政 定 则 跳 开 ， 因 篇 列 刚 把 值 SFF 载 条 入 
器 中 ，Z 旗 标 被 除去 ， 所 以 不 会 跳 开 而 接著 作 LBL1 下 面 的 
指 今 。 

假如 你 想 测 喜 看 看 某 个 位 置 上 的 值 是 否 需 0， 然 后 再 加 
1， 那 糜 可 用 下 列 指 今 : 


LDA $1F 1IGET THE VALUE CONTAINED IN LOCATION $1PF 

BNE LBL :IFP IT IS NOT ZERO BRANCH TO "L8L" 

INC $1F ;ADD ONE TO THE VALUE AT LOCATION S$1LF 
L8BL 一 -一 JINEXT INSTRUCTION 

RETC . 


角 路 ( LOOPS ) 


计算 机 最 有 用 的 特 狂 之 一 就 是 可 以 反 履 不 断 地 执行 时 些 
指 今 到 你 满 瑟 入 止 。 过 征 技 巧 称 需 连 路。 在 EBASIC; 中 可 用 
FOR /NEXT 指 仿 ， 但 在 组合 语 萌 中 没有 过 种 指 今 。 


TRACK 


2 
Le 


"PROGRRM LOOPS ” 


最 简单 的 模拟 法 是 把 次 数值 载 入 累积 器 中 ， 然 后 减 1 ， 
直到 思 成 0 需 止 。 用 BNE 指令 可 使 角 路 体 ( body ) 的 指 今 
被 执行 直到 累积 器 释 成 0 饲 止 。 

例如 要 把 屡 数 了 加 10 。 到 目前 坑 止 肖 未 提 到 加 法 ， 但 
可 用 增加 来 作 。 因 饥 INC 每 次 只 加 1， 因 此 必须 加 10 次 。 
管 然 可 以 写 10 个 INC 指 今 ， 但 是 不 太 方便 。 我 们 可 以 把 10 
存 和 人 某 位 针 ( 例如 工 ) ， 然 后 建立 一 表 路 来 加 10 个 1 到 J 
灵 数 。 程 式 如 下 : 


工 EQU 0 
JEQU' 1 
LDA 半 110 ;INITIALIZE I TO 10 
STA 工 
LDA #$0 ;INITIALI2ZE J TO 0 
STA > 
LP INC J ;NOW， INCREMENT J 10 TIMES 
DEC 工 
BNE LP 
LDA J ;LOAD J SO WE CAN DISPLAY IT 


BRK ;BREAK AND DISPLAY J (IN THE ACC) 
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比较 (COMPARISONS ) 

在 实际 历 用 时 ， 除 了 情况 码 旗 标 之 外 渤 常 需要 测试 其 他 
事物 。 例 如 有 时 要 测试 工 是否 等 於 5 或 (X= 6 ) AND ( 
j<=(Ix5+2))OR(L=M) 等 情况 。 因 此 6502 
提供 了 上 比较 指 今 。 

CMP 指 今 比较 累积 器 和 运算 元 位 填 上 的 值 。 如 何 比 较 
呢 ? 把 累积 器 的 值 减 去 运算 元 的 值 ， 根 据 千 果 来 设 定 PSW 
族 标 。 在 指令 作 完 之 后 累积 器 和 记 懂 体位 外 的 值 都 不 构 。 假 
如 果 积 器 的 值 等 於 指定 位 起 上 的 值 ， 则 相 减 的 灶 果 坑 0， 可 
用 BEQ 指 仿 来 测试 相等 。 同 理 ， 如 果 二 者 值 不 等 , 则 Z 旗 、 
标 必需 0 ， 可 用 BNE 来 测试 此 情况 。 

N 和 C 旗 标 亦 同样 地 受 影响 。 假 如 C 旗 标 坑 1 则 表 累 积 
器 的 值 大 於 ， 等 於 指 定位 冒 的 值 ， 否 则 累积 器 的 值 就 小 於 指 
定位 针 的 值 。 


MEMORY LDCATION V$ooo， 
YOU ageE GREATER THAN 
MEMOQY LOCATION 各 2000 


DIFFERENCE BETwEEN 
RIGHT RND wRonG 中 


V 旗 标 不 受 比 较 指 今 的 影响 ， 因 此 在 比较 指 今 之 后 用 


BVC 或 BVS 指 今 东 没 有 用 芭 。 

其 外 也 可 以 用 CPX 和 CPY 指令 来 比较 X ，Y 要 存 器 和 
某 记 屋 体 的 值 。 情 况 码 旗 标的 改 释 与 CMP 指 今 相同， 也 可 
用 转移 指令 来 测试 各 种 情况 。 

6502 微 不 理 机 中 没有 BGT ( (branch if greater than) an 
) 和 BLE (branch if less than or equal) 指 今 。 但 是 可 用 BEQ 
，BNE, BLT ，BGE 指令 来 租 成 同样 功效 的 指令 ? 假如 要 比 
较 工 和 了 J 的 值 ， 若 I 冬 丁 则 跳 到 LBL ， 程 式 如 下 : 


LDA 工 
CMP J 
BLT LBL 
8gEQ L8L 


， 假如 I< J， 则 第 一 个 转移 指 今 会 跳 开 至 LBL ， 假 如 
LI = ] 则 不 会 跳 开 ， 但 第 二 个 转移 指 今 ( BEQ ) 会 跳 开 至 
LBL 。 

测 南 大 於 的 范 数 稍 困 准 些 。 上 比较 工 上 哑 了 假如 工 > 丁 则 跳 
到 LBL， 如 下 ! 


如 果 工 = J， 则 跳 到 EQL ， 而 不 到 LBJ， 若 I 关 ] ， 
则 不 是 小 於 就 是 大 於 ， 若 是 大 於 ， 则 BGE LBL 会 发 生 作用 
,否则 程式 稳 芒 作 EQL 邵 分 的 指 今 。 
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IF/THEN 陈述 的 模 气 
CIF/THEN STATENMENT SIMULATION. 


BASIC 中 IF/THEN. 陈述 的 文法 如 下 : 
IF < 选辑 式 子 > THEN< 陈述 > 
只 有 当 愤 辑 式 子 坑 扶 时 才 会 执行 < 陈述 >>。 例 如 BASIC 
陈述 IF X>=7 THEN Y= 0， 在 X 大 於 或 等 於 7 时 会 
今 Y 等 於 0。 用 组合 语言 来 模 所 IF 陈述 时 需 用 各 种 转移 指 
今 以 便 跳 到 所 要 执行 的 位 置 。 例 如 要 把 上 列 BASIC 陈述 改 
成 租 合 语言 ， 则 和 编码 如 下 : 


例 3 中 ， 若 X 之 7， 则 作 BLT 指 今 下 面 的 指 分 ， 杂 工 
等 於 0。 若 X< 7， 则 BLT 指 今 跳 过 今 了 等 於 0 的 指令， 
直接 作 工 BL 下 面 的 程式 。 

可 以 在 转移 指 信和 目的 标示 之 间 放 蔷 许 多 要 执行 的 指 今 。 


FOR/NEXT 旭 路 ( FOR/NEXT LOOP REVISITED. 
前 面 提 过 ， 假 如 可 以 在 值 不 垮 0 时 精 束 班 路 那 就 更 方便 


一 些 。 现 在 CMP 指 今 就 能 办 到 。 假 设 从 索引 改 数 值 怖 1 时 
央 始 姐 路 执行 一 直 作 到 值 储 10 人 抗 止 ， 程 式 如 下 : 


;NOTE :， The normal code within your 1oop body goes here 


INC 1 
JMP LOOP 
LOPX BRK 
ETC 
假如 间隔 是 2， 则 每 次 在 跳 到 LOOP 之 前 把 工 加 2 即 可 
。 最 后 可 以 再 次 改 形 测试 步 又 。 要 看 工 是 否 大 於 10 ， 就 用 
BEQ 和 BGE 指令 来 合成 BGT 转 移 ， 另 一 种 作法 是 测试 工 是 
否 大 於 或 等 从 11。 钙 然 BGE 是 现成 的 指 兮 。 用 第 二 种 方法 
自然 程式 较 短 ， 和 结果 如 下 : 国 匡 


LDA #$1 
STA I 
LOOP LDA 工 
CMP #S$B SB - 11 DECIMAL 
BGE LOOPX 


:NORMAL LOOP BODY GOES HERE 


INC 工 

JMP LOOP 
LOOPX BRK 

ETC 


注 意 


到 目前 坑 止 我 们 都 只 讨论 不 带 符号 数字 ， 以 后 会 再 寺 论 
带 符号 数字 的 比较 ! 
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此 外 转移 指 今 荡 不 是 可 以 跳 到 记 司 体 中 任何 位 置 的 。 转 
移 指令 是 用 相对 位 址 法 ， 跳 开 指 今后 面 指明 的 是 16 位 元 的 
和 绝对 位 冉 而 转移 指 今 则 是 一 位 元 租 的 分 枝 ( _ displacement ) 
。 把 分 枝 加 上 分 歧 指 邻 的 下 一 指 今 的 位 址 就 是 时 正 目的 地 位 
. 址 ， 因 此 能 在 转移 指令 前 126 位 元 组 和 和 后 129 个 位 元 和 粗 之 问 
的 转移 。 

大 各 分 的 转移 都 在 此 范围 之 内 ， 假 如 超过 此 和 范围 ， 则 篇 
录 器 会 栓 你 ”转移 超过 和 范 围 ” 的 销 款 讯息 。 解 决 的 方法 是 用 
相反 的 转移 指 今 ( 例如 假如 BEQ 超过 和 范围 则 改 用 BNE 指 
今 ) 然后 有 运算 元 柚 字 成 ”* + $ 5 ”， 而 在 转移 指 今 之 后 用 
JMP 转移 到 目的 地 的 指 今 。 

”+$5 ”是 什么 普 思 呢 ? 当 6502 和 编译 器 碰 到 ”>* ” 
时 就 代 换 成 现在 搬 今 的 起 始 位 址 ，”*+$5 ”就 是 把 现在 指 
邻 的 位 址 加 下 的 悉 思 。 因 需 转 移 指 今 念 二 位 元 租 长 而 JMP 
指 今 坊 三 位 元 租 长 ，… ”*#+$5 ”就 跳 到 JMP 指 今 的 下 一 
个 指 今 ! 


和 范例 . 
BEQ LBL 超过 和 范 轩 ， 则 修改 如 下 : 
Simply substitute: 


BNE +*+$5 
JNMP LBL 


假如 上 次 运算 结果 使 Z 族 标 态 届 乱 1， 则 会 接著 作 JMP 
指 今 跳 到 LBL,， 和 否则 会 跳 到 JMP 指 今 的 下 一 个 指 邻 去 执行 
， 即 模 所 ”假如 相等 则 长 跳 到 .LBL, ”! 

下 玫 坑 转移 和 其 长 跳 型 式 


二 FE ` 王 
若 转移 超出 范 用 运 些 指 今 

BEQ LBL BNE 。+S5 
JMP LBL 

BNE LBL BEQ “+*S$5 
JMP LBL 

BCC LBL BCS *+S5 
JMP LBL 

BCS LBL BCC +9g5 
. JMP LBL 

BVC LBL BVS * + 和 5 
JMP LBL 

BVS LBL BVC“+$5 
JMP LBL 

BMI LBL BPL “+S$5 
JMP LBL 

BPL LBL BMI “+85 
JMP LBL 

BGE LBL BLT “+S5 
JMP LBL 

BLT LBL BGE “+S5 
JMP LBL 

BTR LBL BFL 。+S5 1 见 下 节 

JMP LBL 


.JMP LBL 
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布 林 值 的 测试 (TESTING BOOLEAN VALUES ) 


在 程式 中 常 要 用 某 些 磷 数 来 保存 旗 标 ， 以 便 在 其 他 部 分 
再 用 ， 因 此 要 定义 布 林 值 。 通 常用 $00 来 代表 假 而 $01 来 代 
表 扶 。 现 在 可 用 BEQ 和 BNE 指 仿 来 测定 是 质 是 假 ; 用 BNE 
来 测试 假 的 情况 ， 而 用 8EQ 来 测试 芮 的 情况 。 划 起 来 不 太 
对 副 ， 因 此 LiSA 提供 另外 二 种 指令 : BTR 和 BFL ( 

branch if true 和 branch iffalse )， 二 二 个 指 今 所 凑 
生 的 码 和 BEQ 肥 BNE 的 码 相 同 ， 只 是 使 用 较 坊 方便 而 已 ! 


MEMORY 手 1000. YOU 
PRE TRUE . 

MEMORY 芷 2000, YOU 
ARE FALSE 


区 


和 


VE CAN.… 


在 程式 虹 头 应 埠 有 下 列 二 陈述 


FALSE ” EQU $0 
TRUE EQU 和 1 


True 和 了 False 是 镍 看 成 符号 性 常数 而 不 是 位 苇 ， 因 此 


程式 变 成 


LDA #FALSE 
STA 工 

LDA #TRUE 
STA FLAG 


来 代替 下 列 程式 


LDA #S$0 
STA 工 

LDA #$1 
STA FLAG 


显然 地 第 一 种 写法 较 易 看 民 。 而 符号 人 性 常数 东 不 限 於 用 
在 true 和 false。 每 当 要 用 某 个 有 特殊 肢 义 的 16 进位 数 时 
， 就 被 宣告 成 符号 性 的 常数 (symbolic constant  )， 符 号 
性 常数 会 使 程式 更 易 看 懂 且 更 易 修 改 。 
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第 六 重 


算术 运算 


ADC SBC 
概 葵 〈(GENERAL) 


6502 有 3 种 基本 的 算术 汉 算 指 今 : (0 不 带 符号 二 元 数 
(2) 带 符号 二 元 数 (39) 不 带 符号 十 进位 数 。 每 种 都 各 自 有 它们 的 
规则 ， 所 以 不 可 混合 使 用 。 


不 带 符号 整数 (二 元 数 ) 算 和 术 
CUNSIGNED INTEGER (BINARY) ARITHMETIC ) 

6502 所 能 上 处理 的 不 带 符号 整数 的 算 轩 是 0 到 255。 赂 
然 吉 范围 不 是 项 大 ， 但 通常 够 用 。 假 如 加 法 的 结果 超过 此 和 范 
团 ， 则 会 徙 截 掉 前 面 邵 分 ， 只 留 后 面 8 位 元 ， 同 理 当 小 数 减 
大 数 时 亦 发 生 同 样 情形 。 

但 是 不 必 担 心 ， 另 有 多 重 精确 度 运 算 可 用 来 处 理 更 大 的 
数字 。 
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6502 中 没有 SIN,COS ,1/X,LOG 或 TAN 等 多 种 计 
算 器 所 有 的 画 数 。 事 实 上 6502 过 乘法 和 除法 都 没有 ，6502 
只 能 作 加 法 和 诚 法 芒 其 他 有 用 的 逮 算 都 可 用 加 法 和 沽 法 来 合 
成 ! 
6502 的 加 法 指 今 怖 ADC ( 有 进位 的 加 法 ) 。 过 指 今 取 
出 某 位 著 的 值 然后 加 到 所 积 器 上 ， 同 时 ， 进 位 旗 标 ( 0 或 1 
) 也 加 上 去 。 第 一 个 不 带 符号 算术 的 规则 是 : 在 作 ADC 之 
前 先 清除 进位 旗 标 ， 否 则 会 有 50 % 之 机 率 会 多 加 了 1。 


范例 : 
CLC ; ALWAYS ! 
LDA 北 $5 
ADC 半 S3 
BRXK :PRINTS RESULT 9F ADDITIOK 
END 


CLC 
LDA 素 7 了 
ADC 六 委 S 
BRK 
END 


CLC 
LDA 老 SFC 
ADC :六 S20 
BRK 
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此 例 中 会 发 生 洽 位 情形 ， 结 果 前 兹 位 位 元 从 截 掉 ， 只 留 
人 后面 8 位 元 。 

发 生 浴 位 时 会 如 何 呢 ? 不 像 BASIC 会 输 你 ”*#*+ > 255 
”的 钳 尺 ， 而 6502 会 党 作 没 事 一 样 赚 炉 作 下 去 ， 但 结果 将 
是 无 法 预料 的 。 假 如 在 作 加 法 时 发 生 浴 位 的 情形 ， 则 进位 族 
标 会 愉 届 定 ， 因 此 用 BCC 和 BCS 就 可 测 出 座位 的 情形 了 。 


和 范例 : 


CLC 

LDA II 

ADC J 

BCS ERROR ;GO TO ERROR IF OVERFLO 骨 

ETC. .. ;OTHERWISE CONTINUE PROCESSING . 


用 进位 旗 标 来 通知 我 们 发 生 澄 位 情形 是 很 有 用 的 。 我 们 
可 能 忽略 不 管 ， 或许 你 确定 不 会 长 生 誉 位， 二 时 候 就 不 必 源 
费时 间或 位 鞭 来 测试 浴 位 了 。 

当 发 生 淮 位 时 ， 可 保证 一 件 事 : 结果 一 定 在 $100 到 
$1FEF 之 间 。 因 坑 8 位 元 所 能 玫 示 最 大 数 需 $SFF ，$FF + 
$FF 得 $1FE， 其 他 值 相 加 一 定 小 於 此 值 。 


品 人 @ 

浴 位 的 例子 : 
CLC CLC 
LDA 间 SFF LDA #SFO 
ADC 帮 和 1 ADC #S20 
BRK BRK 
END END 
CLC - CLC  . ， 
LDA #S$80 LDA #S$80 
ADC #S80 ADC 疼 和 FE 
BRK BRXK 


END END 
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蕊 


不 带 符号 加 法 的 规则 
(RULES FOR UNSIGNED ADDIJTION,) 


不 要 和 与 下 面 减 去 或 带 符号 算术 或 十 进位 算术 的 规则 混 
消 。 


外 在 作 加 法 之 前 ， 先 清除 进位 族 标 。 


(3) 用 BCS 指令 来 测试 座位 情形 ， 如 果 发 生 兴 位 则 和 进位 
旗 标 会 被 设 定 


减法 (SUBTRACTION ) 


减 法 和 加 法 大 致 相同 ， 除 了 三 点 不 同 之 外 : (0 指 今 坑 
SBC ( 有 进位 的 减法 ) (2) 在 作 沽 法 之 前 ， 要 裔 定 进 位 旗 标 
G) 在 作 完 之 后 车 进位 旗 标 坑 0 ， 则 表示 产生 不 足 位 情形 。 

第 2 ，3 点 和 加 法 恰好 相反 。 记 住 演 一 点 ， 许 多 初学 者 
鄞 读 了 在 作 减 法 之 前 要 先 设 定 进 位 旗 标 ,以致 产生 钳 误 的 灶 
果 。 


和 范例 : J- 工 芋 把 桔 果 放 在 位 革 工 


;ALWAYS BEFORE A SUBTRACTION! 
LDA J 


ERROR LDX #SFF 
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此 例 中 ， 若 一 切 顺 利 则 喜 存 器 的 值 应 坊 $00。 若 是 发 
生 不 足 位 情形 ， 则 和 要 存 器 坑 $EFF 。 你 可 以 在 程式 之 前 再 加 
一 些 LDA 和 STA 的 指令 来 屋 定 I ， 卫 的 初 值 以 便 作 试 验 。 
当然 要 用 假 指令 EQU 和 EPZ 来 定义 工 和 丁 的 位 贰 。 

SBC 指令 会 影响 PSW 的 值 ， 就 跟 CMP 指 今 一 样 。 因 此 ， 
可 以 和 CMP 指 今 一 样 ， 在 SBC 指 今 之 后 使 用 转移 指 今 ， 在 
过 壬 是 不 太 有 用 ， 可 是 对 多 重 精确 的 运算 彻 很 有 用 。 

N 和 V 族 标 在 不 带 符号 运算 中 没有 释义 。 


不 带 符号 减法 的 规则 
CRULES FOR UNSIGNED SUBTRACTION ) 


由 不 要 与 加 法 ， 有 号 或 十 进位 算术 的 规则 混淆 。 
”在 作 沽 法 之 前 先 屋 定 进 位 旗 标 。 
G) 作 完 之 后 著 发生 不 定位 ， 则 浊 位 旗 标 坑 0， 否 则 坊 1 


带 符 路 算术 ( SIGNED ARITHNMETIC ) 


著作 $8 减 $10 时 会 如 何 ? 结果 应 是 $8 ， 可 是 计算 机 
会 告诉 你 不 足 位 ( underlow ) ( 即 淮 位 旗 标 需 0 ) ， 因 入 
在 不 带 符号 数字 系 炳 中 ， 不 尤 许 和 负数 的 存在 5 可 是 全 常 常 需 
要 用 负数 ， 所 以 必须 发 展 一 套 定义 有 号 数字 的 方法 。 

6502 是 探 用 2 的 补 数 系 杭 来 表示 负数 。 在 温和 有 系 芒 所 万 
请 的 范围 是 - 128 到 +127 之 间 (用 8 位 元 )。 有 号 算 了 术 和 
无 号 算术 作法 相同 ， 用 指令 ADC 和 SBC ， 且 在 加 法 之 前 而 
要 先 请 除 进 位 ， 在 作 沽 法 之 前 要 先 设 定 进位 旋 禁 。 
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唯一 


不 同 点 是 进位 旗 标 不 再 有 意义 。 因 坑 进 位 是 从 位 元 


7 得 来 的 ， 但 此 处 位 元 7 是 符号 。 芙 正 发 生 洽 位 时 ， 应 是 从 
位 元 6 进位 得 来 ， 可 是 位 元 6 的 进位 阔 不 会 影响 进位 旗 标 ， 
但 仓 可 用 6502 的 V 旗 标 来 测试 洽 位 或 不 足 位 的 情况 。 每 党 
位 元 6 产生 进位 时 ， 壳 旗 标 就 伞 屋 定 。 

在 不 带 符号 算术 中 加 法 和 沽 法 中 用 来 测试 的 指 邻 丛 好 相 
反 ， 但 在 带 符号 算术 中 御 是 一 样 ， 浴 位 或 不 足 位 都 是 用 BVS 
来 测试 。 


范例 : 


OVERPFLO 


LDA 
ADC 
BRK 
END 


CLC 
LDA 
ADC 
- BRK 
END 


SEC 
LDA 
SBC 
BRK 
END 


TESTING 


W 0CCURS OVERFLOW DOES NOT 0CCUR 
#S7F ;127 DECIMAL LDA #S1 
#S$1 :1 DECINAL ADC #S82 
;RESULT = -128 BRK :RESULT - 3 
END 、 
CLC 
未 $80 ; -128 DECIMAL LDA #SFF -1 DECIMAL 
北 $880 ; -128 DECIMAL ADC 才 82 : 2 DECIMAL 
:RESULT = 0 BRK :RESULT > 1 
END 
“SEC 
六 8$80 ;-128 DECIMNAL LDA 沙 SFE ,， -1 DECIMAL 
$1 ,1】 DECIMAL SBC #8S1 ， 1 DECIMAL 
:RESULT = +127 BRK RESULT = -2 18SFE) 
END 
FOR UNDERFLOW/OVERFLOW: 
CLC SEC 
LDA #SFF LDA #$23 
ADC #$25 SBC #S43 
BVS ERROR <- GO IF OVERFLO 骨 -> BVS ERROR . 
BRK <- _STOP OTHERWISE ->、 BRK 


ED RND 
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带 符号 算术 的 规则 (SI/GNED ARITHNMETIC RULES 


(不 要 与 不 带 符号 算术 或 十 进位 算术 的 规则 弄 混 。 

@) 在 加 法 之 前 要 先 清 涂 进 位 旗 标 ， 而 在 作 诚 法 之 前 要 气 
设 定 进 位 族 标 。 

(3) 用 BVS/BVC 指令 来 测试 谁 位 或 不 足 位 情形 ( 当 V = 
1 时 表示 发 生 涂 位 或 不 足 位 ) 


带 符 号 的 比较 (SIGNED COMPARISONS ) 


利用 V ，N 和 2 旗 标 可 作 有 号 比较 。 当 二 数 相 等 时 ，2Z 
旗 标 会 估 1 ， 所 以 可 用 BEQ/BNE 指令 来 测试 相等 的 情形 。 
当 YV 旗 标 等 於 N 旗 标 时 ， 即 志 示 黑 积 器 的 带 符 号 值 大 於 等 於 
记 懂 位 寺 的 值 ， 否 则 则 小 於 记 鳃 体位 苇 的 值 。 

目前 只 剩 雨 个 问题 ， 首 先 没有 测试 V 旗 标 和 N 族 标的 指 
今 ， 其 次 6502 的 CMP 指 今 不 会 改 攀 V 旗 标 的 值 。 

第 二 个 问题 较 易 解决 ， 可 用 SBC 指令 。 SBC 指 今 对 族 
标的 影响 和 CMP 指 今 一 样 ， 除 了 一 点 ， 它 会 改 购 ，YV 旗 标 
的 值 。 因 此 带 符号 比较 的 作法 如 下 : 先 设 定 进 位 旗 标 ( 在 减 
法 之 前 一 定 要 作 的 ) ， 然 合用 SBC 指令 来 代替 CMP 指 今 

第 一 个 问题 比较 麻烦 ， 下 列 程式 即 用 来 模 据 带 符号 BGE 
指 仿 和 带 符号 BLT 指 今 。 


SEC 
LDA A 
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SBC 8 

BMI LBL 

BVC GE 
LT : <- BRANCH TO HERE IF A < B 
LBL BVC LT 
GE : < 一 BRANCH TO HERE IF A >= B 


二 元 码 十 进位 算术 
(BINARY CODED DECIMAL ARITHMETIC ) 


现在 要 介 胡 另 一 个 数字 系 坏 ， 叫 作 二 元 码 十 进位 系 坑 或 
简写 成 BCD“。 过 种 系 坑 在 答 出 入 使 用 最 方便 .BCD 是 一 种 以 
二 元 码 来 代替 十 进位 数 的 方法 ， 其 型 式 如 下 : 


DECIMAL DIGIT BINARY REP . BCD RET 
0 0000 0000 
1 0001 0001 
2 0010 0010 
3 0011 0011 
4 0100 0100 
5 0101 0101 
6 0110 0110 
7 0111 .0111 
8 1000 1000 
9 1001 1001- 
DECIMAL DIGIT . BINARY REP . BCD REP 
I6 1015 57565501 0000” 
11 1011 0001 0001 
12 1100 0001 0010 
13 il101 0001 001j1 
14 1110 0001 0100 
15 111 0001 0101 
16 0001 0000 0001 0110 


多 1 到 9 ，BCD 和 二 进位 麦 示 法 都 一 样 ， 但 从 10 开始 


第 六 章 ”算术 到 算 77 


就 不 同 了 。 在 BCD 中 ， 低 障 尼 波 用 来 麦 示 十 进位 中 的 低位 
数 ， 而 高 障 尼 波 则 玫 示 高 位 数 。 在 BCD 中 不 尤 许 1010 到 

1111 之 间 的 数 。 用 8 位 元 可 玫 示 0 到 99 之 间 的 数值 ， 在 租 
合 蓄 言 中 就 明 BCD 的 方式 和 只 明 10 进位 数 的 方式 一 样 ， 只 
是 BCD 常 数 之 前 是 加 个 “ 针 ”。 


不 带 符号 的 BCD 算 入 
(UNSIGNED BCD ARITHMETIC ) 


跟 带 符号 或 不 带 符号 的 二 进位 算术 一 样 ， 过 壬 的 加 法 和 
减法 都 是 用 ADC 和 SBC 指令 执行 的 ， 同 时 在 加 法 之 前 也 要 
清除 进位 而 在 减法 之 前 也 要 改 定 进 位 。 在 作 完 加 法 之 后 若 改 
生 潍 位 则 进位 旋 标 会 篇 1 ， 而 作 完 减法 时 若 发 生 不 足 位 ， 则 
进位 旗 标 会 垮 0。 

既然 无 号 的 BCD 运算 和 无 号 的 二 进位 运算 的 指 今 一样 
， 上 处 理 机 一 定 得 有 某 种 方法 来 知道 是 设 孝 行 十 进位 或 二 进位 
的 运算 。 过 是 透 过 一 个 可 用 程式 控制 的 旗 标 ( D， 或 十 进位 
旗 标 ) 来 过 成 的 。 若 D = 1 则 作 十 进位 算术 ， 否 则 作 二 进位 
算术 。 可 用 指令 SED 和 CLD 来 慨 定 或 清除 0 旅 标 。 

一 旦 设 定 D 旗 标 ， 则 所 有 算术 都 是 十 进位 ， 直 到 再 清除 
D 旗 标 坑 止 。 但 过 也 有 个 缺点 ， 若 是 设 定之 后 记 了 清除 ， 则 
所 有 想 作 的 二 进位 算术 都 构成 乱 效 了 。 因 此 要 小 心 使 用 D 族 
标 。 因 此 除非 已 上 就 要 作 十 进位 算术 ， 和 否则 在 程式 一 天 始 最 
好 先 用 CLD 指令 ,以 鄂 不 必要 的 错误 。 

另 尔 要 注 屿 二 件 事 ， 第 一 件 是 若 运 算 元 的 任 一 个 尼 波 
的 值 在 1010 到 11ll 之 间 ， 则 此 运算 无 效 ， 第 二 是 6502 本 
身 的 钳 避 ， 你 必须 在 加 法 之 后 用 SBC 之 指令 来 检查 果 积 器 
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是 否 筷 0。 


十 进位 算术 和 范 例 ( DECIMAL ARITHMETIC EXAMPLES: ) 


SED ;SET DECIMAL MODE 

CLC ;ALWAYS BEFORE AN ADDITION 

LDA #S$25 ;INITIALIZE ACC TO 25 “DECIMALVBCD 
ADP #S$10 ;ADD 10 (DECIMALVBCD) 


BRK ;RESULT IS 5s5 
END - 
SED 


SEC :ALWAYS BEFORE A SUBTRACTION 
LDA #$52 ;INIT TO DECIMAL 52 ， 
SBC #S$22 ;SUBTRACT 22 (DECIMALVBCD 


BRK ;RESULT IS 30 

END 

SED 

CLC ;ALWAYS BEFORE AN ADDITION 


LDA #S$99 ;LOAD WITH 99 (DECIMALVBCD ) 
ADC #S1 ;ADD 1 (DECIMALVBCD ) 
BRK ;RESULT JIS 0，CARRY = 1 


LDA #S$00 
SBC #$1 
BRK ;RESULT JS 99，CARRY = 0， 


不 带 符号 算术 的 规则 
(UNSIGNED ARJTHMET1C RULES ) 
(0 用 SED 指 今 来 设 定 十 进位 旗 标 。 
(在 作 加 法 之 前 先 清 除 进 位 ， 而 在 减法 之 前 先 设 定 和 进位 。 
(3) 要 先 确定 到 算 元 需 有 效 的 BCD 数字 ， 否 则 会 产生 错 
导 G 、 吉 
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区 假如 作 加 法 之 后 ， 要 测 哉 Z 旗 标 ， 则 要 加 个 指 今 “ 
CMP 井 $00 ”。 

全 加 法 的 洽 位 是 由 进位 旗 标 坑 1 来 显示 的 ， 在 过 种 情形 
下 会 产生 大 於 99 的 值 。 

(0) 若 C = 0 则 表 发 生 减 法 的 不 足 位 ， 过 时 所 产生 的 值 小 
於 00。 


带 符 号 的 BCD 算术 (SIGNED BCD ARITHMETIC ) 


6502 站 没有 提供 带 符号 的 十 进位 算术 。-. 


捅 要 (ARITHNMETIC REVIEW ) 


过 和 章 中 我 们 介绍 了 三 种 数字 系统 : 不 带 符 号 的 二 进位 ， 
带 符号 的 二 进位 和 BCD 。 

BCD 在 作 VO 动作 和 某 些 较 少 被 使 用 的 数值 计算 时 特 
别 方 便 。 许 多 途 器 ， 像 伏特 计 ， 频 率 计 算 器 和 狠 的 输出 都 是 
BCD 资料 。 假 如 要 将 APPLE ll， 和 过 些 鸡 器 接 起 来 ， 则 要 
探 用 BCD 系统 。 

不 带 符号 的 二 进位 数 则 在 只 有 正 数 的 情形 时 才 破 使 用 ， 
移 95 % 是 过 种 情形 。 只 有 当 要 处理 负数 时 才 用 带 符号 的 算 
术 。 因 篇 不 带 符号 的 算术 较 快 ， 较 易 作 ， 所 以 比 其 他 二 种 都 
更 有 用 。 
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8 位 元 算术 的 规则 
(RULES FOR 8-B17 ARJITHMETC ) 
(最 大 值 


(8) 带 符号 = 127 
(b) 不 带 符号 = 255 
(C) 十 进位 = 99 
(2 最 小 值 

(B) 带 符号 = 一 128 
(b) 不 带 符号 = 0 
(C) 十 进位 = 0 


(3) 假 如 需要 ， 程 式 员 必须 自己 提供 测试 洽 位 和 不 足 位 情 ， 
形 的 副 程 式 。 


他 在 加 法 之 前 先 清除 进位 ， 而 作 减 法 之 前 要 先 届 定 进位 
旅 标 。 


(5) 所 有 的 运算 都 是 径 过 累积 器 来 作 的 。 


8 位 元 算术 有 些 限 制 ， 最 重要 的 一 娄 是 范围 的 限制 。 以 
合理 说 论 多 重 精确 度 的 算术 。 


NS、 Retro Worksho， 第 七 章 “ 副 程式 和 堆 生 不 理 81 
戴 姐 工 作 史 


第 七 章 
副 程 式 和 堆 受 上 处 理 


PHA PLA JSR 
PHP PLP RTS 


概 葵 (CGENERAL ) 


跟 BASIC 一 样 ， 租 合 语言 程式 员 也 常常 需要 跳 到 一 租 
指 今 去 执行 ， 然 后 再 跳 回来 作 下 一 个 指令。 
过 种 技巧 称 坑 副 程式 。 在 BASIC 中 用 GOSUB 陈述 就 
可 跳 到 副 程 式 中 去 作 。 当 作 完 之 后 再 用 RETURN 回 到 主 程式 
来 。 
租 合 攻 言 的 作法 类 似 ， 用 JSR 指令 (Jump to Subroutine) 
跳 到 副 程 式 ， 再 以 RTS (Return from Subroutine) 
指 今 跳 回 主 程式 。JSR 指 今 哺 JMP 类 似 。 都 是 一 位 
元 租 的 指令 码 再 加 上 二 位 元 租 的 绝对 位 址 。 而 RTS 则 是 一 
位 元 组 长 的 指 今 
在 BASIC 中 副 程 式 通常 彼 使 用 来 设 定 初 值 或 避 台 重 覆 
码 ， 但 在 租 合 程式 中 有 更 重要 的 原因 需要 用 副 程 式 一 利用 琵 
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程式 把 次 杂 的 工作 分 成 杰 个 较 小 而 简单 的 次 工作 。 前 面 提 过 
6502 只 能 作 加 沽 法 ， 假 如 要 作 乘 法 时 怎么 办 呢 ? 用 副 程式 
来 作 。 在 BASIC 中 你 不 必用 副 程式 来 作 乘法 ， 因 入 乘 法 在 
其 本 身 语 言 中 就 有 ， 但 在 租 合 医 言 中 就 没有 ， 因 此 必须 用 副 
程式 来 模 气 。 此 外 工 /0 也 需要 用 副 程 式 ， 因 和 垮 6502 花 没 有 
提供 "PRINT" 或 4NPUT' 的 陈述 ， 必 须 用 副 程 式 来 模 所 。 

副 程 式 最 重要 的 用 上 处 是 可 以 把 工作 分 段 成 较 易 编 码 的 小 
工作 。 过 种 发 展 方 法 称 坊 ”从 上 往 下 ”( "TOP-DOWN"” ) 的 
方式 。 你 可 能 常 区 到 ” 灶 构 化 程式 ”过 个 名 词 。 灶 构 化 程式 
必须 用 到 如 FOR 角 路 ， “REPEATUNTIL 角 路 ，WHILE 
， IFTHEN/ELSE ”陈述 和 BEGIN/END ”等 和 过 些 程式 架 
构 。 显 然 地 在 和 组合 语言 中 和 结构 化 程式 不 可 能 ， 因 和 赁 它 没有 前 
面 所 襄 的 陈述 。 同 然 你 可 以 用 JMP 的 指 今 来 模 所 它们， 但 
结构 化 程式 是 不 允许 用 GOTO ( 或 JMP ) 的 ， 因 此 千 构 化 
程式 设计 在 租 合 语言 上 是 不 可 能 的 。 然 而 模 气 过 些 陈 了 述 ( 

IF/THENAELSE, REPEATIUNTIL 等 ) 钾 是 个 不 鲁 的 
构想 ， 以 后 将 会 讨论 ! 


RUN TO VOCATION 2000 
FOR ME ，DO TuIS 《gepD 
PND COME RIGHT BAcx 
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往 上 往 下 程式 必 计 的 岗 念 如 下 : 先 定 问题 大 移 ， 不 要 牵 
水 类 和 节 ， 其 次 再 把 每 个 筒 要 分 成 小 段 ， 考 谍 玉 和 细节 的 部 分 。 
接著 再 把 过 些小 段 再 分 ， 直 到 可 以 用 租 合 语 否 很 容易 地 实行 
坑 止 。 

在 定义 问题 的 每 一 步 卫 就 座 对 应 共 一 个 副 程 式 。 主 程式 
只 有 一 些 设 定 初 值 ， 测 哉 ， 和 JSR 的 指令， JSR 就 是 跳 到 
许多 处理 组 节 的 副 程 式 。 同 理 过 些 副 程 式 也 只 是 -一些 设 定 初 
值 ， 测 武 ， 某 些 资料 处理 和 JSR 指 今 的 集合 。 

最 后 工作 会 分 割 到 最 低 阶层 ， 其 中 齐 程 式 只 由 不 是 JSR 
的 指 今 所 租 成 。 自 然 副 程式 的 深度 视 实际 巍 用 而 定 。 

平常 的 租 合 东 襄 程式 非常 雁 债 测 ， 用 过 种 方式 写 的 程式 
则 较 易 侦 错 ， 如 果 不 用 "和 从 上 往 下 ”法 写 程 式 可 能 较 快 ， 但 
侦 钳 却 要 花 很 多 时 间 。 


缕 数 闻 题 人 WRIABLE PROBLEMS ) 


租 合 语言 的 副 程 式 和 BASIC 一 棋 有 许多 问题 。 例如 下 
面 的 BASIC 程式 : 


10 FOR I=1 T0 10 
20 G0SUB 50 

0O NEXT I 

40 END 

50 工 =1 

60 RETURN 


例子 中 FOR/NEXT 锭 路 礁 认 执行 10 次 。 可 是 第 50 行 
的 呼 咋 副 程 式 会 把 工 坝 定 需 1 。 央 此 运 路 会 不 停 地 作 下 去 
。 在 组 合 语言 中 也 有 过 种 问题 。 或 许 你 会 襄 只 要 在 副 程 式 中 
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[二 


不 要 用 到 多 路 控制 参数 就 可 以 了 ! 在 租 合 医 言 中 ， 可 以 和 
BASIC 一样 用 不 同 的 灵 数 名 称 ， 可 是 要 存 器 御 不 行 ， 如 下 


例 : 


LDA 闪 SF 
L8L JSR SETX 

DEX 

BNE LBL 

BRK 


SETX  LDX #S$10 
RTS 


上 例 中 ，X 槛 存 器 用 来 作 迎 路 控制 参数 。 副 程式 SETX 
把 $10 ( 即 16 ) 的 值 存 人 和 要 存 器 中 ， 然 后 再 跳 句 。 其 后 
X 杰 存 器 的 值 彼 减 1 ( 成 $F 或 15 )， 成 坑 不 是 雳 的 值 。 
因此 适 姐 路 会 一 再 反 轿 ! 

当然 无 法 奉 X 杰 存 器 改名 。 但 不 克 许 程式 只 使 用 又 要 存 
器 ( 或 累积 器 或 要 存 器 ) 疤 不 合理 ， 不 准 在 副 程 式 中 使 用 
X 要 存 器 倒 不 如 在 进入 副 程式 时 把 6502 相关 的 昔 存 器 的 值 
保存 起 来 ， 到 跳 回 主 程式 时 再 膛 原 成 原来 的 值 。 上 例 因 此 可 


改写 如 下 : 


XSAVE 


SETX 


EPZ 80 :SAVE LOCATION FOR THE X REGISTER 
LDX #S 己 

JSR SETX 

DEX 

BNE LBL 

BRK 


STX XSAVE 
LDX #S10 
LDX XSAVE 


END 


过 样子 站 没有 解决 副 程 式 和 芹 存 器 用 法 的 所 有 问题 。 看 
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看 下 面 的 码 : 
XSAVE EPZ $0 
LDX 六 $F 
LBL JSR SETX 
防区 X 
BNE LBL 


BRK 


SETX STX XSAVE 
LDX #S$10 
JSR SETX2 
LDX XSAVE 
RTS 


SETX2 STX XSAVE 
INX 
LDX XSAVE 
”RTS 
END 


首先 是 建 一 个 妈 路 ， 在 息 路 中 呼 听 副 程式 SETX， 局 了 
避 吕 发 生 不 停 的 班 路 循环 ， 首 先 把 X 析 存 器 的 值 存 在 XSAVE 
位 寺 上 。 接 著 双 要 存 器 中 载 入 值 $S10， 然 后 再 呼 咱 SETX2 
。 同样 地 要 再 把 X 草 人 存 器 的 值 存 起 来 ， 喝 得 SETX2 破坏 了 
原来 的 值 。 问 题 是 如 此 一 来 入 莉 存 器 的 现 值 会 把 前 一 个 X 覃 
存 器 的 值 ( 存在 XSAVE 位 置 上 ) 改 掩 ， 央 坑 二 者 都 存在 
XSAVE 位 填 上 。 因 此 当 从 SETX2 跳 回 SETX 时 ，X 赤 存 
器 载 入 $10， 跟 呼 哇 SETX2 之 前 一 样 ， 但 当 要 从 SETX 跳 
回 主 程式 时 ， 就 发 生 错 强 了 ， 此 时 XSAVE 的 值 优 $10， 将 
其 载 入 X 要 存 器 中 ， 划 六 暂 存 器 的 值 与 呼 趾 SETX 之 问 的 “ 
$F ” 值 不 同 ， 因 此 过 个 程式 又 有 不 停 的 直路 ! 

解决 的 方法 是 每 个 副 程 式 用 不 同 的 媳 数 ( 那 位 址 ) 来 存 
要 存 器 的 值 。 


本 


[ waNRNA USE THE 


所 


一 -一 
】 


REGISTER 1 


SUBROUTINE ONE 


范例 . 


XSAVE1 
XSAVE2 


LBL 


/BuT TY aptEnoy 


， 1 
{f usnc mn youo canr/ 
本 1 


必 S 


SU8BROUTINE TwoO 


$0 
31 


者 全 忆 
SETX 


LBL 


XSAVE1 
章 和 10 

SETX2 
XSAVE1 


XSAVE2 


XSAVE2 
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过 个 程式 就 不 全 产生 不 停 的 姐 路 。 慰 每 个 副 程式 有 不 同 
的 忆 数 名 词 时 ， 可 用 :DFS ( define storage ) 在 副 程 式 一 
开始 时 就 保留 一 个 位 元 组 。 


we 站 

( HEEHEE :CU usE rue 

( x REGISTER AND PUT IT BACK 
Erogs HE NOTICES 1 广 - 


0 


SUBROUTINE ONE cuUBROUTINE TWO 
7-7 


范例 : 
LDX 站 SF 


LBL JSR SETX 
DEX 
BNE LBL 
BRK 


XSAVE1  DFS 1 :RESERVE ONE BYTE FOR THE X REGISTER 


SETX STX XSAVE1 
LDX #S$10 
JSR SETX2 
LDX XSAVE1 
RTS 
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XSAVE2 ” DFS 1 
SETX2 。.STX XSAVE2 
IN 

LDX XSAVE2 


RTS 
END 


只 被 一 个 副 程 式 使 用 的 释 数 称 坑 设 副 程式 的 局 部 释 数 人 
Local variables ) ， 应 臣 在 副 程 式 用 到 它 之 前 就 先 定 义 好 ， 
涡 混淆 。 而 被 多 个 副 程 式 共用 的 购 数 称 做 共用 搂 数 
GLOBAL variables ) 。 对 APPLE 1 的 租 合 语言 内 用 程式 来 
说 ， 可 用 局 各 变数 来 保存 暂 存 器 的 值 。 
有 二 种 副 程 式 不 能 有 局 部 网 数 ， 一 人 篇 ”再 进入 ”( "REE 
NTRANT") 副 程 式 ， 一 坑 可 存在 ROM 上 的 副 程 式 。 因 坑 再 进 
和 人 副 程 式 可 以 呼 呈 自己， 如 果 探 用 局 部 释 数 ， 则 要 存 器 的 值 
一 定 会 被 破坏 。 
可 存在 ROM 的 副 程 式 无 法 用 DFS 指 今 来 保留 位 填 ， 内 
信保 留 给 它 的 记 鱼 位 冒 是 在 ROM 上 。 赂 然 可 以 用 EQU 来 定 
义 RAM 上 的 位 置 ， 可 是 御 不 方便 。 
假如 可 以 存 值 在 某 一 奇 民 的 位 起 ， 等 要 存 下 一 个 值 时 就 
把 前 一 个 值 移 到 另 一 个 位 置 ， 如 此 就 不 会 羡 掉 原来 的 值 。 当 
把 过 奇 殿 位 苇 的 值 载 和 要 存 器 中 则 会 取得 最 后 存 入 该 位 车 的 
值 ， 而 再 把 前 一 个 存 和 的 值 放 回 过 奇 刁 的 位 蔷 。 如 此 我 们 就 
可 以 写 下 列 程式 : 


LDX 站 SF 
LBL JSR SETX 

DEX 

BNE LBL 

BRK 
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SETX STX "MAGIC" 
LDX 站 $10 
JSR SETX2 
LDX "MAGIC 
RTS 


ETX2 STX “MAGIC" 
INX 
LDX "MAGICY" 
RTS 
END 


在 上 例 中 我 们 把 值 $F 载 入 X 杰 存 器 然后 呼叫 SETX ， 
在 SETX 中 把 X 要 存 器 的 值 存 和 人 奇 丹 的 位 填 。 再 把 $10 载 入 
X 要 存 器 ， 再 呼 趾 SETX2 。 此 时 又 把 X 杰 存 器 的 值 存 人 奇 
民 的 位 起 ， 二 会 使 得 前 一 个 值 秆 移 到 其 他 地 方 ( 自动 地 移动 
) 。 接 著 把 X 杰 存 器 加 1 得 $l11， 下 一 个 指 今 把 奇 民 的 位 冉 
的 值 $10 载 入 X 析 存 器 中 ， 因 此 最 先 存 在 奇 民 的 位 芙 的 值 
$F 又 存 回 原来 的 位 置 。 过 时 SETX 跳 回 呼叫 程序 SETX 再 
把 奇 殿 的 位 置 上 的 值 ( 现在 是 $SF ) 载 入 X 要 存 器 中 ， 也 跳 
回 呼 呈 程序， 过 时 和 杰 存 器 的 值 和 呼叫 SETX 之 前 的 值 完 全 
一 样 ! 本 

过 奇 刁 的 位 置 是 LIFO ( 人 后进 先 出 (Last In, First Out) 
) 资料 结构 的 例子 ， 通 常 称 坊 堆 登 。 、 

6502 微 处 理 机 提供 了 LIFO 堆 登 。 可 以 用 PHA 指令 把 
累积 器 的 值 感 人 崔 登 中 ， 而 用 PLA 指 今 把 堆 登 的 值 拉 出 帮 
入 累积 器 中 。 因 此 PHA 就 是 把 累积 器 的 值 存 人 奇 殿 的 位 车 
的 方法 ， 而 PHA 则 是 把 奇 慷 位 填 上 的 值 载 和 累积 器 的 方法 。 

假如 你 把 累积 器 的 值 邦和 人 堆 登 中 ， 和 伞 不 拉 出 来 ， 则 只 是 
把 它 放 在 堆 登 顶端 而 已 ， 可 是 如果 你 没 先 把 资料 压 入 堆 登 就 
要 将 其 拉 出 ， 则 会 发 生 半 题 1 6502 的 堆 登 会 隧 著 吓 作 堆 登 
指标 的 一 个 8 位 元 要 存 器 来 旋转 。 汪 指标 的 值 永 速 在 $100 
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和 $1FF 之 问 。 当 把 资料 压 和 大 堆 登 时 ， 资 料 存在 指标 指 在 第 
一 页 位 置 上 ， 接 著 把 指标 减 1 ， 因 此 下 一 个 被 压 入 的 资料 会 
存在 前 一 个 压 入 的 资料 之 下 。 堆 登 指标 永 涉 指 到 下 一 个 可 用 
的 位 工 。 当 要 拉 出 资料 时 则 指 樟 加 1 ， 再 把 指标 所 指 位 置 的 
值 载 入 累积 器 中 。 除 非 已 经 压 入 超过 256 位 元 粗 的 资料 到 堆 
登 中 。 否 则 每 次 使 用 PHA 都 保证 会 把 值 存 在 新 的 且 唯一 的 
位 置 内 ， 因 和信 成 标 是 8 位 元 ， 顶 多 能 压 入 256 个 位 元 组 的 资 
料 到 堆 登 中 ， 如 果 超 过 ，256 个 则 堆 登 会 转 回 第 一 个 位 置 ， 
如 此 一 来 就 会 蕾 掉 以 前 的 资料 。 大 致 上 来 设 ，256 锡 多 了 ， 
通常 程式 项 多 用 到 64 个 位 元 租 的 要 时 位 车 就 钓 了 。 

没有 特别 给 X ，Y 芹 存 器 的 车 入 和 拉 出 指令 。 要 把 过 些 ， 
暂 存 器 压 入 堆 登 中 ， 可 以 先 把 值 转 入 果 贰 器 中 再 用 PHA 推 
入 堆 登 中 。 


范例 : 
Y 要 存 器 压 入 把 X 要 存 器 压 入 
TYA TXA 
PHA PHA 


需 注 巧 这 会 改 掉 有 轰 积 器 中 原来 的 值 。 
现在 我 们 用 PHA 和 了 PLA 在 副 程 式 中 保存 暂 存 器 。 如 下 : 


LDX #SF ;INIT INDEX COUNT 
， LBL JSR SETX 

DRX ;DRCREMENT COUNT 
BNE LBL ;LOOP IF NOT THROUCH 
BRK ,SST 

SETX PHA ;SAVE THE ACCUMULATOR 
TXA ;SAVE THE X REGISTER 
PHA 


TYA ;SAVE THE Y REGISTER 
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LDX #$10 

JSR SETX2 

TXA ;NOW RESTORE THE Y REGISTER 
， :RESTORE THE X REGISTER 

Pr :RESTORE THE ACCUMULATOR 


SETX2 PHA JISAVE ACC 
TXA ;SAVE X REG 
PHA 
TYA JSAVE Y REG 
PHA 


INX 
;RESTORE THE Y REG 


:RESTORE X REG 

;RESTORE ACC 

或 请 你 已 注 伙 到 者 存 器 被 拉 出 的 顺序 恰好 与 耻 压 入 的 顺 
序 相反 ， 因 坑 堆 登 是 LIFO { 和 后进 先 出 ) 的 资料 结构 。 

而 6502 如 何 记 住 作 完 副 程 式 后 要 跳 回 那个 位 址 呢 ? 当 
执行 指令 JSR 时 ， 跳 回 位 址 就 被 压 和 堆 登 中 ， 而 执行 RTS 
时 把 跳 回 位 址 从 堆 登 中 拉 出 。 假 如 在 执行 RTS 之 前 没有 把 
压 入 的 资料 都 拉 出 来 ， 则 资料 会 彼 当 作 跳 回 位 址 使 用 。 内 此 
如 住 一 个 规则 : 在 执行 RTS 之 前 要 把 所 有 匡 入 堆 登 的 资料 
拉 出 。 但 也 不 要 拉 出 过 多 的 资料 ， 否 则 会 把 晃 回 位 址 弄 掉 。 

过 会 促成 从 上 往 下 程式 设计 中 非常 重要 的 一 点 : 副 程式 
中 应 裔 只 有 一 入 口 和 一 出 口 。 假 如 有 许多 出 口 ， 则 很 可 能 会 
忘记 拉 出 堆 屋 中 所 有 的 资料 。 解 决 的 方法 很 简单 ， 不 用 很 多 
的 PTS， 而 用 JMP， 跳 到 唯一 的 RTS 上 去 。 
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LDA LOC1 


万 
范例 昌 SUBRT PHA 
CMP #S50 
BLT SUB1 
LDA #SO 
STA LOC1 
JMP SUBX 
SUB81 INC LOC1 


SUBX “ PLA 
RTS 


在 副 程式 中 放 有 用 到 X ,YY 要 存 器 ， 因 此 不 必 存 到 堆 登 
中 。 

当 硒 念 重 履 时 ， 副 程式 就 很 有 用 ， 因 此 就 将 把 要 存 器 砷 
入 堆 登 ， 和 将 其 值 从 堆 登 拉 出 的 动作 写成 一 副 程 式 ， 叫 作 
SAVE 和 RESTR， 径 验 不 锡 的 程式 上 员 可 能 入 码 如 下 : 


”SUBRT JSR SAVE 


-SUBROUTINE 一 
-~C0ODE GOES- 
Hi 


JSR RESTOR 
RTS 
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避 吕 用 过 个 程式 。 把 累积 器 X ，Y 杰 人 存 器 感人 堆 登 中 ， 
笠 划 就 做 RTS， 则 6502 会 把 最 后 用 入 夫 登 的 二 位 元 和 组 看 成 
跳 回 位 址 ， 但 X ，Y 杰 存 器 的 值 根 本 不 是 跳 回 位 址 。 


传 拓 允 数 ( PASSING PARAMNETERS ) 


参数 是 用 来 传送 资料 到 副 程式 的 。 例 如 sin (X) 中 ，X 
就 是 画 数 SIN 的 参数 。 SIN(X) 会 遂 回 X 的 正 老 画 数值 。 
POKE 也 是 一 个 有 参数 的 程序 ( procedure )。 事 实 上 POKE 
有 二 个 参数 : 第 一 个 参数 志 第 二 个 参数 要 存放 的 位 冉 。 

在 6502 中 有 很 多 方法 可 用 来 传 迭 参数 给 副 程式 。 磷 简 
单 的 方法 是 用 要 存 器 来 传 运 。 它 有 个 缺点 ， 参 数 只 能 有 三 位 
元 组 ， 对 某 些 应 用 来 设 也 许 级 了 ， 例 如 APPLE 监督 程式 ” 
ROM 中 有 两 个 副 程式 ， 可 把 累积 器 的 值 以 ASCIl 字 元 印 在 
悟 莫 上 及 从 键 姐 上 沪 入 字 元 转换 成 ASCIl 存在 累积 器 中 。 丙 
个 副 程 式 分 别 放 在 位 址 $FDED 和 $FDOC 上 。 你 可 以 用 下 
列 程式 把 APPLE 1| 沟 成 一 如 电动 打字 机 : 


COUT _EQU SFDED ;USE A SYMBOLIC LABEL FOR 
;CHARACTER .OUTPUT 


RDKEY EQU SFDOC :SAME FOR KEYIN ROUTINE 


LO0OP JSR RDKEY 
JSR C0UT 
JMP LOOP 
END 


要 停止 程式 的 执行 ， 打 reset 键 就 可 以 。 
和 党 你 需要 传 迭 多 於 三 位 元 租 的 参数 时 ， 就 要 用 另外 的 方 


1/ 
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法 。 一 种 方法 需 把 参数 放 在 某 些 已 知 的 位 苇 ， 然 后 在 副 程 式 ) 
中 ， 再 到 过 些 已 知 位 翅 拿 资料 。 同 样 地 在 执行 完 副 程式 之 后 
可 以 到 某 一 已 知 位 置 拿 出 滩 回 的 资料 。 例 如 下 列 程式 ( SUM 

 ) ， 求 4 位 元 租 的 煽 和 : 


LDA 工 

STA PARN1 

LDA J 

STA PARN2、 

LDA XK 

STA PARN3S 

LDA 

STA PARM4 

JSR SUM 

LDA RESULT 
PARN 1 DRFS 1 
PARM2 DFS 1】 
PARMS DFS 1 
PARN4 ” DFS 工 
RESULT  DFS 】 
SUM CLC 


ADC PARM4 
STA RESULT 


END 


假如 需要 也 可 以 测试 是 否 有 浴 位 ! 和 用 亚 存 器 一 样 ， 参 
数 应 设 是 局 部 变数 ， 其 他 副 程 式 不 可 使 用 1 


人 
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第 八 章 


障 列 第 零 页 索引 和 间接 位 址 法 


四 。 
新 指 今 ， 
HEX ORG 0BJ DFS ASC 


概 论 (GENERAL) 


到 目前 坑 止 我 们 只 用 过 和 艳 对 ( 16 位 元 位 址 ) ,直接 ( 
8 位 元 资料 ) 和 相对 ( 8 位 元 转移 位 址 法 。 过 些 是 最 常用 的 
但 萌 不 是 唯一 可 用 的 。 


第 零 页 位 址 法 〈<ZERO PAGE ADDRESSING ) 


6502 的 64 玫 位 址 空间 被 分 成 256 个 具有 256 位 元 租 的 
单位 。 每 一 个 256 个 位 元 组 称 坑 一 页 (pages) ， 和 从 0 算 到 
$FF 。 第 1 页 留 作 6502 的 堆 登 ， 而 第 0 页 通常 用 来 存 伙 数 
和 指 檬 。 在 Apple 监督 程式 ，DOS 和 大 邵 分 像 BASIC 人 
Pascal 的 语言 中 ， 第 雳 页 常 熙 用 到 。 假 如 你 要 用 过 些 疆 车 
( 或 从 租 合 语言 程式 中 用 到 DOS ) ， 则 你 必须 特别 小 心 第 
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0 页 的 位 填 。 假 如 你 要 用 第 0 页 中 某 一 个 已 被 主要 许 言 所 用 
的 位 置 ， 则 会 发 生 ” 第 0 页 衙 突 ”， 而 你 的 程式 就 会 产生 鲁 ， 
慰 。 坟 了 避 兄 错 慰 你 故 设 去 查看 新 的 Apple 手册 中 第 74 
到 75 真 的 第 0 页 位 秆 才 ， 了 解 那些 位 革 已 被 某 各 高 隐语 车 
所 使 用 了 。 

证 然 会 发 生 衙 突 ， 坑 什么 要 用 第 0 页 的 位 苇 呢 ? 还 有 其 
他 48496 个 位 置 可 用 啊 ! 因 垮 6502 提供 了 ”第 0. 页 位 址 法 
”。 第 0 页 位 址 法 的 指 今 由 一 位 元 租 的 指令 码 和 一 位 元 租 的 
位 址 所 租 成 。 因 坊 8 位 元 只 能 指明 256 个 不 同 的 位 针 ， 因 此 
只 能 参考 到 记 钱 体 中 的 一 页 : 就 是 第 雳 页 。 过 种 指令 只 要 二 
位 元 租 ， 所 以 可 以 节省 记 屋 空间 。 另 一 个 好 处 是 过 指令 较 稳 
对 位 址 法 的 指 今 执 行 的 速度 快 。( 事实 上 人 快 了 芭 ) 。 

当下 列 情况 时 ， 会 自动 探 用 第 雳 页 位 址 法 : 


(所 指 的 位 址 饥 非 符号 性 的 《 也 就 是 或 不 用 标示 ) 而 且 值 
小 於 $100 。 
例如 : 
LDA $1 
STA SFF 


LDX $1 
ADC $25 


(2) 位 址 需 符 号 人 性 的 ， 且 用 ”EPZ ”宣告 。， 
例如 : 


LBL EPZ S$0 
LBLA EQU $0 


LDA LBL ;ZERO PAGE ADDRESSING USED 
TDA LBLA ;ABSOLUTE ADDRESSING US8D 
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记 住 只 有 和 当 标 示 使 用 EPZ 来 定义 时 才 用 第 零 真 位 址 法 
本 区 部 用 契 时 位 让 法 。 
1 
和 组 合 语言 中 的 阵列 
CARRAYS IN ASSEMBLY LANGUAGE ) 


有 时 候 会 需要 用 到 阵列 或 宁 训 。 阵 列 是 一 些 长 度 相 同 的 
元 素 所 和 组 成 ， 且 存在 和 懂 体 中 过 和 粳 的 位 起 ， 所 以 可 用 对 第 一 
个 元 素 位 置 的 分 枝 索 取出 任何 一 个 元 素 。 

首先 考虑 在 租 合 语言 中 如 何 来 定义 取 列 ? 有 许多 种 方 法 
， 基 本 上 要 先决 定 保留 那 块 位 筠 来 存 障 列 。 内 此 可 以 用 EQU 
假 指令 来 宜 告 障 列 。 例 如 假设 要 保留 40 个 位 元 租 ， 其 次 要 
决定 要 放 在 记 司 体 那里 ， 和 当然 需 确定 不 会 放 在 你 的 得 式 码 或 
如 DOS 三 的 位 置 。 第 3 页 是 放 小 型 吧 列 的 好 地 方 。 因 此 
用 下 列 指令 定义 阵列 从 位 置 $300 开始 存放 : 

ARRAY EQU $300 ;ARRAY !S $28 (40) BYTES 
LONG 

过 指 今 襄 明 阵列 ARRAY 从 位 置 $300 开 始 ， 程式 员 必 须 
自己 记 住 位 革 $300 到 $327 是 给 阵列 ARRAY 用 的 。 假 如 
你 还 要 宣告 另 一 阵列 ， 估 用 10 个 位 元 组 ， 则 如 下 : 

ARRAY EQU $300 ,ARRAY IS $28 (40) BYTES 


LONG 
ARRAY2 EQU $328 ;ARRAY IS $A (10) BYTES 
LONG 
过 样子 就 保 人 证 ARRAY2 的 空间 和 ARRAY 的 空间 不 会 发 
vv” 生 衙 突 了 。 


题 然 地 自己 计算 位 置 是 很 麻烦 的 ， 因 此 更 好 的 宣告 方式 
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是 = 


ARRAY EQU $300 . 
ARRAY2  EQU ARRAY+S28 


:ARRAY2，S LENGTH IS SA 1 


过 指 今 悦 明 ARRAY2 是 从 ARRAY 开头 的 后 40 个 位 留 
开始 。 在 ARRAY2 和 后面 的 赴 解 只 是 说 明 ARRAY2 有 多 长 ， 
假如 要 再 加 其 它 阵列 划 可 决定 访 如 何 宣告 。 

用 .EQU 指令 有 两 个 缺点 。 第 一 个 是 当 你 写 程 式 时 需 知 

道 阵列 存放 在 那 壬 ， 过 会 形成 编码 的 不 锡 效 率 ， 尤 其 当 阵 列 ， 
很 大 时 ， 无 法 知道 程式 何 时 才 结 束 ( 通常 可 把 阵列 放 在 程式 ， 

的 后 面 ， 便 成 需 一 整 块 位 置 ) 。 第 二 个 缺点 是 必须 记 住 最 后 
一 阵列 的 长 度 ， 如 此 才能 再 加 上 其 他 的 阵列 。 

假 指 邻 ORG 会 把 位 填 计 算 器 的 值 届 定 坟 运 算 元 棚 中 所 
指定 的 位 址 。 位 镀 计 算 器 是 用 来 决定 现在 的 码 该 放 在 那 壬 的 

指标 。 通 常 纺 绎 程式 时 ， 会 自动 从 位 苇 $800 开始 存放 。 每 
当 建 立 一 位 元 租 的 码 。 就 存在 位 填 计 算 器 所 指 的 位 露 内， 然 
后 位 填 计 算 器 再 加 1。 每 次 碰 到 标示 时 就 把 标示 和 其 定义 的 
位 贰 计算 器 的 值 存 入 符号 才 中 。 看 下 列 程式 : 

ORG $800 ;DEFAULT VALUE 

JMP LABEL ,THREE BYTE INSTRUCTION 


ARRAY ”ORG 8$9035 
LABEL 一 一 ;THE REST OPR YOUS PGM GOES HERE 


此 例 中 篇 译 器 被 指示 由 位 径 $800 ( 即 等 佟 内 定 值 ) 开 
始 存 程式 ， 在 ORG 之 后 是 JMP 指令 ， 因 扼 JMP 指 今 乱 三 位 
元 组 长 ， 因 此 下 一 个 指令 从 位 $803 开始 存 。 再 下 一 个 指 今 
包含 一 个 标示 ( ” ARRAY ”) ， 所 以 适 标 示 就 与 现在 位 置 
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“计算 吕 的 值 被 存 入 符号 才 中 。 注 悉 ， 除 了 EQU 和 EPZ 之 外 
\ 标示 都 在 二 一行 指令 码 产生 之 前 被 存 入 符号 表 中 。 因 此 ” 
ARRAY ”就 与 值 $803 被 存 和 人 符号 表 中 了 。 接 著 ORG 指 全 
强人 迫 今 位 鞭 计 算 器 值 需 $903 ， 即 保留 了 256 个 位 元 粗 给 程 
式 中 的 阵列 使 用 。 汪 个 方法 唯一 的 缺点 是 必需 知道 目前 位 冉 
计算 器 的 值 ， 但 常常 不 可 能 知道 ， 因 此 无 法 用 ORG 来 保留 
位 置 。 
当 和 编译 器 在 运算 元 栏 中 碰 到 ”* ”时 ， 会 把 ” * ” 换 成 
目前 这 去 计 算 器 的 值 ， 如 此 就 不 用 猜 现 在 位 置 计算 器 的 他 ， 
而 以 ”* ”来 代替 就 可 以 了 。 现 在 保留 256 位 元 租 的 方法 如 
下 : 
ORG S$800 
JMP START 


ARRAY ”ORG *+8100 ;RESERVE 256 LOCATIONS 
START 一 ;CODE GOES HERE 


另 一 个 问题 是 ”程式 和 资料 的 分 嚼 ”。 假 如 你 把 阵列 放 
在 程式 中 ， 必 须 保 证 不 会 被 当 作 码 来 执行 ， 否 则 会 发 生 错 如 
。 在 上 例 中 ， JMP 指 今 使 程式 执行 跳 过 阵列 部 分 。 通 常 存 
在 程式 中 的 阵列 和 其 他 资料 只 能 放 在 改 玫 程式 流程 的 指 今 如 
JMP ，RTS 和 BRK 之 后 。 

另 一 个 问题 是 用 假 指 令 ORG 和 用 假 指令 OBJ。 什 么 是 
假 指 今 OBJ 呢 ? LISA 在 翻 绎 程式 时 会 用 到 除了 $800 到 
$1800 和 范围 之 间 以 外 的 任何 位 填 。 假 如 你 希望 你 的 程式 从 位 
秆 $4000 开 始 执 行 时 怎么 办 ? 也 不 行 从 位 置 $800 开始 炉 译 
程式 ， 完 了 之 后 再 把 码 移 到 位 蔷 $4000 来 执行 ! 大 邵 份 6502 
和 粗 合 语言 是 不 能 重新 放 蔷 的 ( relocatable ，relocatable 表 
示 程 式 可 以 在 记 慌 体 任何 位 蔷 执 行 而 不 发 生 问 题 ) 。 不 幸 旭 
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地 是 如 JMP ，JSR 等 指令 都 是 指明 绝对 位 置 。 如 篇 曾 下 列 ， 
程式 
ORG $800 
JMP LBL 
ARRAY ”ORG “+ 多 100 
LBL LDA ARRATY 
STA ARRAY 二 多 1 


BRK 
END 


然后 再 移 到 位 蔷 $4000 去 执行 ， 则 会 发 生 钳 避 ， 因 坑 
ORG 把 程式 位 置 定 需 $800， 所 有 的 起 对 位 址 都 是 相对 於 过 
个 位 置 。 如 ARRAY 的 位 址 应 是 $803 而 LBL 则 垮 $903 。 
党 编译 程 式 时 第 一 个 JMP 指 今 被 换 成 JMP $903。 假 如 把 
程式 移 到 位 置 $4000， 则 第 一 个 指令 就 会 又 跳 回 原来 的 位 址 
( $903 ) 来 执行 了 ! 

过 是 不 是 就 表示 所 有 的 租 合 语言 都 必须 存放 在 位 露 $800 
到 $2000 之 香 儿 ? 党 然 不 是 ， 只 是 当 翻 译 程 式 时 ， 目 的 码 会 
被 放 在 过 个 范围 内 。 当 碰 到 假 指 今 ORG 时 ， 码 计算 器 ( 指 
到 码 应 存放 的 位 置 的 指标 ) 就 改 成 运算 元 栏 ， 所 指定 的 值 。 

,例如 程式 中 有 ORG $4000 则 表示 程式 会 被 存在 $4000 位 蔷 
上 ， 兹 且 在 此 位 置 上 被 执行 。 
假如 你 想 芝 你 的 程式 在 $800 位 苇 上 编译 而 在 $4000 位 
帆 上 执行 ， 则 可 以 使 用 下 列 程式 码 : 
ORG $4000 
羽生 
STA LBL 


BRK 
LBL EQU S$0 
END 
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\ ， 假 指 售 OBJ 会 把 码 计算 器 的 值 设 定 久 其 运算 元 栏 所 指 
定 的 位 址 。 过 与 阵列 宣告 又 有 什么 天 保 呢 ? 看 下 面 的 程式 : 


ORG $4000 

0BJ $800 

JMP LBL 
ARRAY ORG “+ 多 100 
LBL LDA ARRATY 


STA ARRAY + 条 1 
BRK 


END 


ORG $4000 指令 保证 会 产生 正确 的 码 而 OB8J $800 
划 保 证 目的 码 放 在 记 屋 体 $800 到 $1800 的 范围 内 。 JMP 
各 今 则 保证 资料 不 会 被 当 作 程式 来 执行 。 但 ORG "+$100 
， 用 来 替 阵 列 保留 位 置 则 有 问题 。 记 住 ORG 指 今 会 改 掉 位 
臣 计 算 器 和 码 计 算 器 的 值 。 过 表示 当 碰 到 ” "ORG "+8$100" 
”时 ， 位 蔷 计 算 器 的 值 是 $4103 ( 如 我 们 所 要 ) ， 而 码 计算 
器 的 值 也 是 $4103( 和 分 不 是 我 们 所 要 的 )。 过 时 再 多 加 指 兮 
“OBJ“+$100” 也 於 事 无 补 ， 因 入 在 执行 OBJ "+$100 
上 时， 位 苇 计 算 器 的 值 已 经 是 $4103 了 1! 过 问题 可 以 解决 ， 可 
是 LISA 提供 了 另 一 种 作法 。 
LISA 提供 了 另 一 个 指令 DFS ( define storaqe  ) ， 
来 处 理 过 个 问题 。 和 当 碰 到 DFS 指 今 时 ， LISA 会 把 程式 计 
算 器 和 码 计 算 器 的 值 加 上 DFS 指 今 中 运算 元 栏 所 指定 的 位 
元 组 数目 。 在 上 例 中 要 保留 256 个 位 元 组 可 以 写成 : 
ORG $4000 
08J 和 $800 
JWMP LBL 
ARRAY DFS 和 100 
L8BL LDA ARRAY 
STA ARRAY+1 


BRK 
END 
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DFS 指 今 会 自动 保留 位 贰 给 你 。 用 DFS 时 也 要 将 阵列 } 
存在 不 会 叙 执行 的 位 填 内 。 DFS ”可 以 用 来 定义 单 构 数 或 限 
列 ， 如 DFSS$1 。 


在 态 滩 时 栓 定 阵 列 初 值 
(IN1/TIALIZING ARRAYS AT ASSENHBLY TINME ) 


有 时 候 要 在 炉 译 时 栓 定 障 列 初 值 ， 例 如 要 把 资料 玫 存 和 人 
记 馈 人 笨 中 或 检定 某 些 字 囊 等 。 到 目前 坊 止 ， 和 尚 没有 方法 可行 
。 通 常 存在 障 列 中 的 资料 有 二 种 : 数字 或 字 串 。 可 用 假 指 今 
HEX 来 将 16 浊 位 的 值 存 入 记 锯 体 中 ， 龙 其 当 建 立 才 时 特别 
有 用 。 HEX 可 在 程式 中 如 下 使 用 : 


JMP LBL 
ARRAY 。 HEX 00010203 
LBL 。 LDA ARRAY 
STA $0 


BRK 
END 


例子 中 累积 器 被 载 和 位置” ARRAY ”所 存 的 值 。 下 一 
个 指令 把 累积 器 的 值 存 入 位 侦 $0 中 。HEX 指 邻 所 要 的 是 二 
个 16 进位 数 所 粗 成 的 项 目 ， 否 则 会 产生 鱼 误 。 过 些 值 都 存 
在 记 己 中 回炉 的 位 臣 内 。 

使 用 假 指 令 ASC 来 慨 定 文字 初 值 。 如 下 : 
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JMNMP LBL 
ARRAY ”ASC "HI THERE" 
LBL LDA ARRAY 
JSR SFDED 
LDA ARRAY+ 1 
JSR SFDED 
LDA ARRAY +2 


JSR SFDED 
LDA ARRAY+4 
JSR SFDED 
LDA ARRAY+5 
JSR SFDED 
LDA ARRAY+6 
JSR SFDED 
LDA ARRAY+7 
JSR SFDED 
BRK 

END 


过 个 程式 会 在 和 幕 上 打出 “HI THERE”。 在 ASC 和 后 
面 的 ASCIll 字 串 要 以 单 引号 或 炙 引 号 括 起 来 。 从 现在 开始 我 
们 都 用 双 引 号 ， 待 会 再 计 论 单 引号 ， 待 会 再 讨论 单 引号 的 用 
法 。 

假如 在 字 串 中 有 伙 引 号 时 ， 怎 么 办 ? 只 要 用 二 个 多 引号 
来 表示 一 个 双 引 张 即 可 。 


ASC "HO 罗 'S mwnTHITSeny 


第 一 个 多 引号 坑 划 界 符号 ， 妍 然 ” 信 划 界 符号 ， 所 以 单 
引号 就 可 出 现在 字 捉 中 。 在 字 串 中 要 包括 双 引 号 则 回炉 用 二 
个 双 引 号 来 代 替 ， 过 会 告诉 LISA ， 过 个 引号 不 是 划 界 符号 
而 是 字 串 的 一 部 分 。 过 例子 会 在 记 懂 体 中 产生 下 列 字母 : 


HOW'S “THIS” 
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现在 你 可 以 保留 位 置 给 障 列 ， 那 床 要 如 何不 理 阵列 元 束 
呢 ? 要 处 理 单一 元 素 很 交 单 ， 只 要 把 第 一 个 元 素 的 位 置 再 加 
上 分 枝 就 可 以 。 例 如 要 取 障 列 ARRAY 的 第 10 个 元 素 旭 以 
ARRAY + $9 需 位 址 即 可 。 ( 记 住 ， 租 合 族 言 中 阵列 的 索引 
是 从 0 开始 ) 。 过 是 固定 分 枝 ， 人 
， 只 要 在 翻 诗 时 算出 即 可 。 假 如 下 列 指 今 


LDA ARRAY+TI 


则 在 翻译 时 会 把 工 的 位 址 加 上 ARRAY 的 位 置 作 需要 载 
入 累积 器 的 值 所 在 的 位 址 ， 也 就 是 说 在 翻译 时 就 已 决定 要 载 
入 那个 位 址 内 的 值 了 。 例 如 工 被 存在 位 置 $1000 而 ARRAY 
存在 位 置 $2000， 则 “LDA ARRAY+LIL 会 把 位 填 $3000 上 
的 值 载 入 黑 积 器 中 ， 过 个 $3000 是 在 翻 绚 时 就 计算 好 了 的 。 
因此 要 如 何 模 所 高 障 放 言 中 使 用 多 数 作坊 阵列 索引 的 特性 呢 
? 请 稳 入 看 下 去 ! 


用 索引 位 址 法 来 处 理 了 列 元 素 
(USING /INDEX REGISTERS TO ACCESS ARRAY 
ELEMENTS) 
6502 的 X ，Y 杰 存 器 可 用 来 机 动 地 上 处理 障 列 元 素 。 二 
种 动作 称 坟 索引。 当 你 使 用 和 索引 或 了 索引 时 ， 会 产生 下 列 
动作 : 1 
(把 所 要 的 索引 要 存 器 的 值 加 到 指令 中 的 位 址 去 。 
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GET ME THNE 
IOTH_ ELEMENT 
IN _ ARRAY 工 


* picK up IOTH ELEMENT TO GIVE TO APPLE 
(2) 过 个 位 址 就 是 芙 正 所 用 的 位 址 。 要 使 用 索引 则 文法 
仿 
< 符号 >< 位 址 式 子 >， 艾 
例如 : 
LDA LBL,X 
. STA_ ARRAY ,X 
ADC S1 ,X 
SBC SFFFF ,X 
而 使 用 Y 索 引 ， 则 女 法 如 下 : 
< 符号 >< 位 址 式 子 >，Y 


例子 : 


LDA LBL,Y 
STA ARRAY ,YY 
ADC 雪 1,Y 
SBC SFFRF,Y 
看 看 下 列 例子 : 
LDX 疼 名 1 
LDA ARRAY , 久 ;LDOADS ACC FROM LOCATION ARRAY+S$1 
LDY 半 SFF 


STA STRING,Y ;STORES ACC AT LOCATION STRING+SFR 
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过 程式 把 位 置 ARRAY + $1 的 值 载 人 困 积 器 中 ， 再 把 它 
存 入 位 置 “STRING+S$FF 上 。 尖 站 没 有 用 到 索引 要 存 器 。 

索引 位 址 法 最 重要 的 地 方 是 可 在 程式 控制 下 改变 X ，Y 
要 存 器 的 值 。 例 如 ， 假 设 要 从 位 置 ARRAY 开始 ， 清 除 256 
个 位 元 租 ， 则 可 如 下 : 


LDX #$0 ;JIJNIT FOR 256 BYTES 
TXA :SET ACC = 0 

LOOP STA ARRAY , 久 ;STORE ZERO INTO MEMORY LOC 
INX ;MOVE TO NEXT LOCATION 
BNE LDOP ;DONE YET? 
BRK ;TIPR S0，QUIT 

ARRAY DPFS $100 ;ARRAY STORAGE BEGINS HERE 
END 


此 例 中 X 要 存 器 和 累积 器 都 载 入 $0 ， 接 著 把 累积 器 的 
值 存 入 位 起 ARRAY+X. 上 ， 此 时 和 要 存 器 需 0， 那 存 人 
ARRAY 位 置 上 。 接 著 X 要 存 器 加 1 ( 需 1 不 是 0 )， 所 坟 
BNE 指 今 就 跳 回 LOOP 位 置 上 ， 再 把 累积 器 的 值 存 人 位 蔷 
ARRAY+X, .， 现 在 X 坊 1， 因 此 ARRAY+$1， 人 位置 上 也 
存 0， 一 直 重 覆 此 班 路 直 到 X 杰 存 器 的 值 饥 $FF， 此 时 再 
加 1 而 得 0， 使 惠 路 停止 。 

X ，Y 要 存 器 只 佑 8 个 位 元 ， 所 以 用 索引 位 址 法 只 能 在 
256 体位 元 起 和 图 之 内 。 对 大 部 分 应 用 而 言 ， 已 径 足够 使 用 
了 。 假 如 需要 更 大 的 阵列 可 用 下 . 面 的 位 址 法 。 


间接 位 址 法 〈JNDIRECT ADDRESSING MODE ) 


只 有 JMP 指 今 可 用 间接 位 址 法 ， 运 壬 要 提 的 是 使 用 
间接 索引 法 和 使 用 YY 间接 索 引 法 的 方 讨 。 
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间接 位 址 是 所 要 的 位 址 值 所 在 的 位 址 。 似乎 很 怪 ， 看 看 
下 面 例 子 会 清楚 些 : 
JMP S800 :JUMPS TO LOCATIDON SB00 
JMP ($800) :JUMPS TO THE ADDRESS CONTAINED 
:IN BYTES $800 AND $301 
;LOCATION $800 CONTAINS THE 
;LOW ORDER BYTE OF THE ADDRESS 


;AND S$S901 CONTAINS THE HIGH 
;ORDER BYTE 0F THE ADDRESS 


假如 位 置 $800 上 的 值 念 $4 而 位 赎 $801 上 的 值 需 $09 
， 则 JMP ( $800 ) 会 跳 到 位 置 $904。 用 汪 种 位 址 法 可 以 来 
模 所 很 多 疾 言 中 都 有 的 CASE 陈述 ( ON..GOTO ”和 
CASE 是 相等 的 ) 。 下 面 例子 中 ， 假 如 X 杰 存 器 的 值 需 $0 
， 则 JMP 会 跳 到 位 苇 $800 ， 假 如 和 的 值 坊 $2 ， 则 跳 到 位 
冒 $900 ， 而 X 若 坊 $4 ， 则 跳 到 位 置 $1000。 


LDA LOCADR ,X 
STA JMPADR 


LDA LOCADR , 欠 
STA JMPADR+S1 
JMP (JMPADR ) 


JMPADR  DFS 2 ;RESERVE TWO BYTES FOR JMPADR 
LOCADR “HEX 0008 ;ADDRESS TABLE IN BYTE 

HEX 0009 ;REVERSEE ORDER 

HEX 0010 

END 


坟 什 么 要 把 吉庆 人 简单 的 问题 弄 得 过 夭 复杂 呢 ? 下 列 程式 
也 可 以 作 相 同 的 工作 啊 ! 


CPX #O 
BNE LBL0 
JNMP $800 
LBLO CPX 半 2 
BNE LBL1) 
JNP $900 
LBL1 JMP $1000 
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后面 的 方法 又 简单 又 短 。 沉 然 对 简单 的 例子 来 襄 第 二 种 
方法 可 能 较 好 ， 但 记 住 每 多 处 理 一 个 跳 的 情形 ， 就 要 多 加 ?7 
个 位 元 租 ( 一 个 CPX， 一 个 BNE 和 一 个 JMP ) ， 而 第 一 种 
方法 第 只 要 多 加 两 个 位 元 组 即 可 ( 一 个 位 址 )， 因 此 对 较 复 
杂 的 情形 ， 第 一 种 方法 可 能 较 好 。 

除了 模 据 CASE 陈述 之 外 ， 间 接 跳 天 亦 可 用 来 控制 程式 
的 流程 。 假 如 要 写 一 个 副 程式 把 APPLEII 的 累积 器 所 存 的 
宇 元 打 在 葡 幕 上 ， 在 写 好 程式 之 后 又 希 肇 把 程式 扩充 成 可 打 
在 印 麦 机 等 机 器 上 ， 而 且 保持 程式 只 有 一 个 入口 的 方式 。 我 
们 可 以 用 一 个 旗号 位 元 组， 当 旗 号 坑 0 时 ， 打 在 黎 幕 上 ， 当 
旗号 坑 1 时 打 在 印 玫 机 上 控制 。 程式 如 下 : 


PUTCHR “PHA :SAVE CHARACTER TO BE OUTPUT 
LDA FLAG ;SEE WHERE THE 0UTPUT 6G0ES 
BEQ SCROUT “ ;0OUTPUT TO THE SCREEN IF 0 
CNMP 闪 】 
BEQ PRTOUT ;0UTPUT T0 PRINTER IF 1 
CMP 吾 2 
BEQ MODEN ;OUTPUT TO MODEM IF 2 
ETC. ， . 


假如 只 有 交 种 输出 工具 则 过 个 方法 不 错 。 但 有 两 个 问题 
; 首先 写 在 程式 时 无 法 预知 所 有 可 能 会 接 到 计算 机 的 工具 ， 
其 次 是 没有 考虑 到 遇 稳 装 冒 的 起 始 状 况 。 对 某 些 遇 边 上 装置 而 
言 ， 第 一 次 使 用 时 必须 先 跳 到 起 始 位 址 然后 再 回 到 正常 的 入 
品位 址 。 

用 间接 位 址 法 就 可 以 解决 所 有 的 问题 了 。 不 需 保留 位 置 
做 需 旗 号 而 保留 两 个 位 元 组 来 存 装置 处 理 程式 ( device 
handler ) 的 位 址 。 任 亚 愤 择 第 0 页 中 的 $36 和 $37 二 位 贸 
来 存 处 理 程式 的 低 附和 高 阶 位 址 。 假 如 我 们 想 把 池 打 在 莹 幕 
上 ， 就 把 莹 幕 的 处 理 程式 位 址 放 在 位 置 $37 和 有 $38 上 ， 问 理 
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. 亦 可 打 在 印 麦 机 上 。 而 芙 正 的 字 元 柱 出 程式 只 有 一 个 指令 * 
“JJMP ($36)" ”， 过 会 使 程式 跳 到 目前 可 用 的 遇 沁 装 蔷 去 动 
作 。 

第 一 个 问题 根本 不 是 问题 。 过 种 间接 跳 到 1/0 处 理 程式 
的 作法 把 所 有 的 装 芒 都 考虑 进去 了 。 假 如 现在 要 把 资料 打 在 
新 的 驻 出 装置 上 ， 只 要 把 新 装置 的 处 理 程式 的 位 址 放 在 位 填 
$36 和 $37 即 可 。 

第 二 个 问题 也 很 简单 。 当 打开 装置 时 ， 它 的 起 始 程式 的 
位 址 就 什 载 入 位 置 $36 和 $37 中 。 起 始 程式 设 定 装 贸 初 值 之 
后 再 把 正常 的 处 理 程 式 位 址 载 入 $36 和 $37 即 可 。 


间接 索引 位 址 法 
(CINDIRECT INDEXED ADDRESSING ) 


只 有 JMP 指 今 可 以 用 间接 位 址 法 ， 其 他 像 载 入 、 存 放 ， 
上 比较 等 指令 都 不 行 。 过 些 指 今 可 以 用 其 他 两 种 混合 位 址 法 : 
由 X 间接 索引 和 由 Y 间 接 索 引 法 * 

间接 索引 法 事实 上 是 两 种 方法 的 混合 一 一 间接 位 法 和 由 
Y 索 引 法 的 混合 。 导 正 的 位 址 的 求法 如 下 : 到 运算 码 后 所 指 
定 的 位 址 去 取得 其 值 ( 包括 下 一 个 位 址 的 值 ).， 然 后 把 Y 要 
存 器 的 值 加 上 取得 的 值 ， 结 果 就 是 扶正 的 位 址 。 假 如 Y 杰 存 
器 的 值 坑 (， 就 等 从 用 间接 位 址 法 。 

由 Y 间 接 索 引 法 有 个 限制 : 存 位 址 的 位 填 必 须 在 第 0 页 
中 。 用 运 种 方法 的 指令 估 用 两 个 位 元 组 : 一 位 元 租 的 还 算 码 
和 一 位 元 粗 的 第 0 页 位 址 ; 同时 如 果 用 符号 来 代表 位 址 ， 则 
必须 用 EPZ 来 宣告 此 符号 ， 否 则 会 发 生 钳 误 。 
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范例 : 
LDA #S0 :INIT FOR LOCATION $900 
STA SFE :L.0. BYTE IN LOCATION SFE 
LDA #S9 
STA SFF :H.0 BYTE IN LOCATION $FF 
LDY 帮 和 0 :INIT TO START AT LOCATION SS900 
TYA :INIT ACC TO ZERO 

LO0P STA (SFE).Y ,STORE AT LOCATION POINTED AT 
INY - :BY (SFE.SFF) + CONTENTS OF Y 
BNE LOOP :GO0 TO NEXT，DONE YET? 
BRK :IFR SO，QUIT 
END 


到 程式 就 是 前 面 提 过 的 清除 记 慢 体 的 程式 ， 先 前 是 探 用 
由 入 和 YY 索引 的 方法 作 的 。 

到 目前 名 止 仍 无 法 同时 处理 较 256 个 位 元 租 的 位 寺 。 以 
后 会 提 到 如 何 处 理 记 慑 体 中 任何 位 针 的 方法 。 


索引 间接 位 址 法 
(INDEXED INDIRECT ADDRESSING MODE) 


在 间接 位 址 法 中 ， 先 找 出 间接 位 址 再 加 上 立 要 存 器 的 值 
得 到 睦 正 的 位 贰 。 从 名 字 可 以 看 出 是 先 作 吧 接 位 址 的 计算 再 
作 索 引 。 
而 索引 间接 法 则 是 先 作 索引 。 用 亚 存 器 来 索引 的 文法 
如 下 : 
< 符号 > ( < 位 址 > ，X ) 


先 把 位 址 式 子 的 值 加 上 尺 要 存 器 的 值 ， 以 结果 作 售 位置 
， 取出 疙 位 转 和 下 一 位 置 的 值 作 志 扶正 的 位 址 。 
当 你 在 第 0 真有 个 指标 玫 ， 而 使 用 X 要 存 器 的 值 要 上 处理 
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记 屋 体 中 不 同 的 部 分 时 ， 由 入 索引 问 接 就 很 有 用 。 过 个 位 址 
法 比较 不 常 彼 使 用 。 其 他 用 法 ， 昔 者 自行 去 发 据 。 

间接 位 址 法 是 很 有 用 ， 也 是 6502 微 处 理 机 上 比 其 他 没有 
各 种 位 址 法 的 机 器 较 好 的 原因 ， 在 本 娃 后 面 会 常用 到 过 种 位 
址 法 ， 所 以 一 定 要 了 解 清楚 再 看 下 去 。 
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“第 万 重 
玩 辑 曾 幕 和 位 元 运算 


AND DORA  XOR/VEOR BIT 
ASL LSR ROL ROR 


概 葵 (GENERAL ) 


在 和 质 正 计算 机 应 用 上 ， 资 料 萌 非 全 被 看 成 字 元 或 数目 。 
另 一 种 常用 的 资料 型 驴 称 坑 布 林 型 驴 。 半 布 林 资料 型 驴 而 否 
,一般 的 运算 疫 有 和 意义， 因此 需要 介 帮 一些 新 的 指 今 。 

主要 有 4 种 布 林 涝 算 : 定数 ，AND,OR 和 XOR 。 对 
BASIC 程式 员 来 襄 AND ，OR 准 设 很 熟悉 。 可 是 过 壬 的 
AND ，OR 与 BASIC 的 AND,，OR 有 一 点 点 不 同 。 

融 香 利用 ”上 芙 值 表 ”来 帮助 你 了 解 布 林 妈 算 。 贰 值 表 就 
是 对 所 有 可 能 的 壹 入 所 产生 坟 出 的 列表 。 画 数 可 能 只 有 一 个 
壹 出 值 ， 可 是 壕 入 值 公 可 以 有 任 助 数目。 我们 的 布 林 运 算 只 
尤 许 有 一 个 或 十 个 壕 入 值 但 只 产生 一 个 输出 值 。 因 和 坑 布 林 值 
不 是 提 就 是 假 ， 单 一 校 入 的 布 林 画 数 只 有 二 种 可 能 ， 而 二 个 
输入 的 布 林 西 数 则 有 4 种 可 能 壤 出 值 ( 不 一 定 要 不 同 ) 。 
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祖 数 西数 
(COMPLENMENT FUNCTION ) 

过 个 画 数 只 有 一 个 输入 。 假 如 稿 入 一 位 元 ， 则 人 返回 其 补 
数值 。 例 如 葵 入 仿 趴 值 ( 1 ) ， 则 贮 出 坑 假 值 ( 0 ) ; 而 轮 
入 坑 假 值 ( 0 ) ， 则 稼 出 坑 趴 值 ( 0 ) 。 画 数 的 上 质 值 表 如 表 
9 一 1 工 所 示 。 


表 9- 1 和 补 数 丁 数 的 贰 值 表 


输入 位 元 术 出 位 元 
A X 
0 1 
1 0 


补 数 画 数 有 时 又 称 局 NOT 画 数 ， 又 称 需 1 的 定数 。 


AND 本 数 (AND FUNCTION ) 


过 画 数 需要 两 个 考 入 值 ， 而 返回 一 个 壤 出 值 。 假 如 二 个 
输入 都 是 反 则 运 回 贯 值 ， 否 则 才 回 假 值 。 壬 值 麦 如 下 玫 9- 2 
所 示 。 
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表 9- 2 AND 画 数 的 扶 值 麦 


隔 入 位 元 营 出 位 元 
A B X 

0 0 0 

0 1 0 

1 0 0 

1 1 1 


AND 画 数 常 彼 用 在 比较 指令 中 ( 例如 IF(A=B)  ) 

AND(C<= D)) ”AND 画 数 有 置 幕 的 功能 。 假 如 需要 
J 以 把 某 位 元 构成 0， 例如 A 需 变 数 ， 假 如 要 使 略 出 履 成 0 
“ 则 今 B 坑 0 即 可 ,假如 8 储 1 则 输出 值 与 A 相同 。 从 表 中 
可 看 出 ， 若 8 坑 0 则 输出 必需 0， 若 B 仿 1， 则 输出 即 等 认 
A o 


OR 轴 数 (OR FUNCTION ) 
过 个 西数 也 需要 两 个 粮 入 值 而 适 回 一 个 惊 出 值 。 假 如 A 


或 B 有 一 者 ( 或 二 者 都 ) 储 贯 ， 则 泛 回 芙 值 ， 否 则 汉 回 假 什 
。 睦 值 表 如 下 : 
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表 9--3 OR 画 数 的 扶 值 玫 


壹 入 位 元 烷 出 位 元 
A B X 
0 0 0 
0 1 1 
1 0 1 
1 1 1 


OR 画 数 也 常用 在 比较 指令 中 ( 如 “IF(A.= B) OR 
(C<= D)”)， 同 时 OR 画 数 亦 也 有 罩 幕 作用 ， 可 以 强迫 
使 位 元 释 成 1。 假 如 A 坑 变数， 当 B 坑 0 时 ，A OR B 会 

使 输 出 与 A 相 同 ; 若 B 需 1， 则 A OR B 会 返回 1 1! 


XOR 本 数 (EXCLUSIVE-OR FUNCTION ) 


同样 也 是 二 个 输入 值 ， 一 个 壹 出 值 的 西数 。 假 如 A 和 B 
不 同时 震 趴 或 假 ， 则 和 迭 回 质 值 ， 否 则 运 回 假 值 ， 芙 值 表 如 下 : 


麦 9-.4  XOR 本 数 的 里 值 表 


壤 入 位 元 ， ”办 出 位 元 
A B X 
0 0 0 
0 1 1 
1 0 1 
1 1 0 
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xOR 醒 数 有 二 点 特性 ， 第 一 在 可 用 来 取 输 入 值 的 铺 数 
。 假 如 B 是 0， 则 输出 值 与 A 相同 ， 若 B 坑 1， 则 输出 侦 观 
A 的 定数 。 

XOR 是 个 ”下 等 於 > 画 数 ,假如 A 等 於 B ， 则 办 出 仁 
坑 假 ， 否 则 俘 员 。6502 的 CMP 指 今 也 可 以 作 测试 相 人 等 的 动 
作 ， 可 是 它 会 改 掉 进 位 旗 栋 的 值 ， 而 XOR 不 傅 改 掩 欣 析 的 
值 。 


位 元 字 串 运算 (BIT STRING OPERATIONS ) 


到 目前 坊 止 所 讨论 的 办 出 和 输入 都 是 一 个 位 元 ， 可 是 
6502 都 是 8 位 元 一 起 运算 ， 因 此 过 些 还 辑 十 算 都 以 8 位 天 
来 定义 。 

作法 是 一 位 元 一 位 元 地 作 有 运算 。 首 先 拿 出 一 个 位 元 组 ， 
从 第 0 位 开始 ， 对 应 另 一 位 元 租 的 第 0 位 作 还 算 ， 和 结果 放 在 
桩 出 的 第 0 位 ， 接 著 是 第 1 位 ， 直 到 8 个 位 元 都 作 过 岂止 。 
如 下 : 


(10011110}) AND {11000111) = (110000110) 


(11110000) 0R (00001ili) =- null) 


(11001100} XOR {11110000) =- (00111106) 
NOT (11011011) = (00100100) 


人 
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选辑 运算 的 指 兮 
(NSTRUCTIONS FOR LOGICAL OPERATIONS 


AND 指 邻 (ANDINSTRUCTION ) 


6502 克 许 你 名 累积 器 的 值 和 记 慑 体 中 某 位 填 的 值 作 
AND 还 算 ， 和 结果 放 在 累 生 器 中 且 改 到 Z 和 及 旗 标 。 指 今 的 
符号 垮 AND 。 


范例 : 


LDA ###FF 一 把 值 $FF 载 入 累积 器 11111111 
AND ##OF 一 一 黑 积 器 和 $F 取 AND 值 00001111 


一 一 结果 存在 累积 器 00001111 
等 於 # 耻 


LDA 大 #$2 工 一 一 把 值 $2F 载 入 累积 器 00101111 
AND ###01 一 一 果 积 器 和 $#1 取 AND 值 00000001 
00000001 


假如 位 元 7 估 1 则 N 旗 标 就 仿 1， 假 如 结果 需 0 则 Z 族 
标 就 需 1。 AND 指 今 有 个 用 途 : 可 用 来 测试 某 位 元 是 否 需 
1。 例 如 想 知道 时 积 器 的 位 元 0 是 否 垮 1， 只 要 对 累积 器 和 
#1 取 AND 值 ， 假 如 位 元 0 垮 1， 则 和 结果 ( 在 累积 器 中 ) 一 . 
定 储 '1， 而 且 Z 旗 标 含 0， 你 可 以 用 BNE 指 今 来 测试 。 如 
果 果 积 器 的 位 元 0 不 入 1， 则 业 果 坑 0， 则 BNE 测 起 就 失 
用 。 3 

除了 会 改变 累积 器 的 值 之 妥 ， AND 画 数 的 位 元 测试 特 
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性 非常 有 用 。 假 如 只 是 要 测 哉 位 元 可 用 另 一 BIT 指 售 ， 叉 
方便 又 不 会 改 掉 累 积 器 的 值 。 BIT 指令 对 黑 积 器 和 革 一 绝 
对 位 车 或 第 0 页 上 的 位 置 作 AND 动作 ， 但 结果 不 放 在 黑 积 
器 中 ， 而 是 用 来 改定 N, 2 和 YV 旗 标 。 规 则 如 下 
(位 置 上 值 的 位 元 7 载 入 N 族 标 。( 不 是 结果 的 们 元 了 
) 。 
(2) 位 器 上 值 的 位 元 6 载 人 Y 旗 标 。 
(3) 秽 结果 来 设 定 Z 旗 标 ( 与 AND 指令 相同 ) 
在 办 出 入 的 控制 和 交 款 ( hand- shaking) 上 时， BIT 指 
今 特别 有 用 。 以 后 再 详细 讨 葵 BIT 指 售 。 


ORA 指 令 (ORAINSTRUCTION 


6502 的 OR 指 仿 垮 ORA。 
范例 : 


LDA #$00 一 一 值 $0 载 入 累积 器 中 00000000 
ORA ##FF 一 一 对 累积 器 和 $FF 取 OR 11111111 


值 ， 结 果 #$FF 放 在 果 11111111 
积 偶 中 


LDA 站 $04 一 一 值 #$4 载 人 黑 积 器 中 00000100 

ORA 井 #$30 一 一 对 累积 器 和 4#30 取 OR 00110000 
值 ， 和 结果 雯 $34 放 在 累 00110100 
积 器 中 
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Bi 


XOR/EOR 指 令 (XOR/EOR INSTRUCTON) 


标准 的 6502 “”XOR 指令 符号 是 “EOR ” ， 可 是 因 坑 ” 
XOR ”很 通用 ， 所 以 HSA 提供 2 种 表示 法 ”XOR ”和 " 
EOR ”， 都 是 代表 XOR 画 数 ， 灵 思 相同 ， 随 便 你 用 。 


和 范例 : 


工 DA ###AA-- 值 4#$AA 载 入 果 积 器 10101010 
XOR # 多 01 一 一 对 果 积 器 $01 取 XOR 。 00000001 
一 一 值 ， 和 结果 念 #$AB 放 在 ”10101011 


-一 黑 积 器 中 
LDA #$#$AA 一 一 值 4$AA 载 和 累积 器 10101010 
EOR 井 $01 一 一 对 累积 器 和 #01 取 00000001 
一 XOR 值 ， 结 果 需 4AB 10101011 
一 一 存在 累积 器 中 
取 肥 积 器 的 定数 


(COMPLENMENTNG 1THE ACCUNMULATOAR ) 


6502 汞 没有 基本 的 定数 指令， 可 是 可 用 和 XOR 指 今 来 作 
。 对 黑 积 器 和 #FF 取 XOR 值 ， 就 可 得 累积 器 值 的 定数 。 


和 范例 : 
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LDA ##00 一 一 值 #00 载 入 累积 器 中 .00000000 
XOR 井 $FF 一 一 取 $#FF 和 时 积 器 的 XOR 11111111 


值 ， 结 果 需 $FF ， 存 11111111 
在 累 入 器 中 


LDA 间 4#AA 一 一 值 $AA 载 入 时 积 器 10101010 

XOR 井 #FF 一 一 取 #$FF 和 采 积 器 的 11111111 
XOR 值 ， 结 果 需 4$55 01010101 
， 存在 累积 器 中 


LDA ###55 一 一 值 $55 载 入 果 积 器 的 ”01010101 

XOR 半 #EFF 一 取 #$FF 和 累积 器 的 “11111111 
XOR 值 ， 结 果 坑 $FF 10101010 
存在 累积 器 中 


赫 幕 运算 (MASKING OPERATIONS ) 

上 面 所 提 的 指 今 究 费用 在 那里 ? 又 如 何 使 用 ? 前 面 提 过 
可 用 来 设 定 特定 位 元 (用 ORA 指 今 ) ， 清 除 特定 位 元 ( 用 
AND 指 今 ) 和 改 构 特定 位 元 ( 用 XOR/EOR )， 可 是 它们 
的 价值 究 费 在 那 壬 ? 


土 除 (MASKING OUT ) 


假设 位 填 VAR 上 有 两 种 不 同 值 ， 一 在 低 障 尼 波 ( nibble 
)， 一 在 高 障 尼 波 。 在 某 种 情况 ， 我 们 只 半 低 障 的 4 位 元 有 
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YOw FrOua GuYs Car MovE ou- 
TnkE OTnEYS MOST SYOP/ 


“MASKING OoT ” 


”内 趣 ， 而 要 把 高 障 的 4 位 元 释 成 0。 先 把 VAR 的 值 载 入 果 
积 器 ， 再 对 累积 器 和 值 $OF 作 AND 到 算 ， 则 高 障 “(H.OJ) 
尼 波 就 疏 置 除 汉 成 0， 而 低 障 (L.O) 尼 波 则 不 网 。 


和 范例 : 


LDA _ VAR 一 一 把 VAR 的 值 载 入 时 积 器 
LND 井 #0F 一 一 把 高 障 尼 波 罩 除 ， 留 下 低 障 尼 波 


另 一 个 常 碰 到 的 问题 是 聚集 资料 ( packed data )。 假 - 
届 坟 节省 空间 , 把 8 个 布 林 值 聚集 成 一 位 元 租 。 现 在 想 测 试 
. 某 一 旗 标 是 否 被 屋 定 ， 把 此 位 元 租 载 入 果 积 器 ， 再 用 BTR 
和 BFL 指 邻 兹 不 够 ， 因 坑 BTR 〈 和 BNE 相 同 ) 当 任 何 一 位 
元 需 1 时 就 会 发 生动 作 ， 而 BFL 则 只 有 当 所 有 位 元 都 是 0 
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时 才 会 发 生动 作 。 我 们 需要 的 是 能 测试 某 一 位 元 的 方法 。 可 
以 用 AND 指 今 来 做 。 要 测 武 某 一 位 元 ， 只 要 把 其 他 位 元 都 
四 除 ， 假 如 被 测 试 的 位 元 需 0 ， 则 民族 标 会 被 起 定 ， 而 可 用 
BFL 来 测定 过 情形 ， 假如 被 测试 的 位 元 饥 1 ， 划 糙 果 会 有 
一 位 元 扁 1 ， 而 可 用 BTR 来 测 就 过 情形 。 


范 例 : 


测试 位 元 #0 . 


LDA BITS 
AND #%1 
BTR THERE 


测试 位 元 # 1 
LDA BITS 


AND 装 和 10 
BTR THERE 


测试 位 元 # 2 


LDA BITS 
AND 闪 允 100 
BTR THERE 


测试 位 元 ## 3 


LDA BITS 
AND 省 81000 
BTR THERE 


测试 位 元 井 4 
LDA BITS 


AND 疼 %10000 
BTR _ THERE 


测 式 位 元 # 5 
LDA BITS 


AND #Z100000 
BTR THERE 
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测 误 位 元 # 6 
LDA 8ITS 


AND # 轴 1000000 
BTR THERE 


测试 位 元 间 7 
LDA BITS 


AND #%10000000 
BTR THERE 


AND 指 今 的 另 一 个 用 法 是 在 MOD 画 数 ( MOD 是 余数 
画 数 。X MOD Y 则 运 回 X 除 以 了 的 余数 ) 。 果 积 器 与 #1 
作 4AND'， 则 得 到 除 以 2 的 余数 ， 和 #3 作 AND' 则 得 除 以 4 
的 从 数 ,与 $7 作 AND…， 则 得 除 以 8 的 队 数 ， 与 $F 作 AND 
， 则 得 除 以 16 的 余数 ， 和 与 $1F 作 AND'…， 则 得 除 以 32 的 余 
数 ， 与 #3F 作 AND， 得 除 以 64 的 余数 ， 且 #$7F 作 AND'， 
得 除 以 128 的 条 数 ， 和 与 $FF 作 AND'， 则 坑 原 来 的 值 。 

过 特性 可 用 在 许多 地 . 方 。 如 前 面 测 哉 位 元 的 例子 ， 程 式 
上 员 必须 知道 要 测 就 那个 位 元 。 可 以 把 测试 位 元 的 步 又 写成 副 
程式 ， 而 以 参数 来 指明 要 测 武 那个 位 元 ， 彰 且 建 立 有 多 种 不 
同 值 的 表 ， 当 参数 传送 到 副 程 式 时 ， 就 放 在 X 晋 存 器 ， 而 用 
X 索 引 位 址 法 来 决定 要 用 表 中 那 一 个 值 作 坑 置 子 ( mask. ) 。 


和 范例 : 


TSTBIT  LDA BITS 
AND TBL , 久 
RTS 


TBL BYT 28%00000001 
BYT 2%00000010 
BYT 8&00000100 
BYT 800001000 
BYT %00010000 
BYT %00100000 
BYT %01000000 
BYT 2%10000000 
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现在 要 测试 某 一 位 元 ， 则 把 要 测试 位 元 号 码 ( 0- 7 ) 
载 入 X 要 存 器 ， 然 后 “JSR TSTBIT 。 假 定 Z 族 标 彼 届 定 
则 表 被 测试 位 元 垮 0 否则 入 1。 假 如 X 要 存 器 的 值 不 在 0 ~ 
7 之 间 时 会 如 何 呢 ? 此 时 记 司 体 中 其 他 位 置 的 值 会 被 当 作 置 
子 ， 结 果 是 没有 用 的 ! 因此 需要 确定 X 要 存 器 的 值 在 0 一 7 
之 间 。 有 两 种 作法 ， 第 一 种 是 先 把 X 析 存 器 与 8 作 上 比较， 如 
果 大 於 等 於 8 则 程式 停止 执行 。 第 二 种 方法 是 把 X 要 存 器 和 
$#7 作 AND ， 和 结果 会 是 X 百 存 器 值 除 以 8 的 余数 。 假 如 当 X 
要 存 器 的 值 坑 8， 你 要 这 它 测试 位 元 0 ， 则 第 二 种 方法 可 用 
落 且 较 清 楚 。 可 看 出 来 ， AND' 指令 在 增加 ， 沽 少 和 加 法 时 
可 用 来 强迫 循 焉 ! ( wrap around' ) 

X 杰 存 器 不 能 直接 与 记 局 体位 填 作 AND ， 所 以 必须 先 
把 X 要 存 器 的 值 移 到 累积 器 ， 再 与 表 中 某 值 作 AND'，， 而 把 
结果 再 移 回 X 暂 存 器 。 其 实 可 以 把 参数 直接 传 到 果 积 器 就 可 
以 了 ! 如 下 面 : 


TSTBIT AND #8O111 
"了 TAX 


LDA BITS 
AND TBL ,X 
RTS 


TBL BYT %00000001 
BYT 800000010 
BYT 800000100 
BYT Z%00001000 
BYT 2&00010000 
BYT 8&00100000 
BYT %01000000 
BYT 810000000 


AND 指令 也 可 用 来 某 一 布 林 值 " 假 ” 值 。 下 列 程式 是 
把 位 元 租 'BITS. 中 某 一 位 元 沟 成 0 ， 与 前 面相 同 ， 打 积 器 中 
指明 要 改 鬼 那 一 位 元 。 
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范例 : 


TAX 

LDA BITS 
AND TBLS , 闪 
STA BITS 
RTS 


SETFLS AND #S$7 


TBLS BYT %111L1110 
BYT 8%11111101 
BYT 虽 11111011 
BYT %L1110111. 
BYT 8%L1101111 
BYT %11011111 
BYT 多 10111111 
BYT 8%01111111 


注 屿 过 程式 与 上 一 个 程式 有 二 点 不 同 。 首 先 在 作 完 AND 
运算 之 后 值 存 回 BITS 中 ， 如 此 待 会 还 可 以 用 。 其 次 是 玫 中 
的 资料 恰好 相反 ， 因 坑 我 们 只 是 把 某 位 元 杰 成 0 而 其 他 位 元 
阔 不 希望 被 置 除 。 


站 进 ( MASKING /N ) 


6502 的 ORA 指 今 可 用 来 设 定位 元 储 1。 程 式 如 下 : 


SETRUE AND #S7 
TAX 
LDA BITS 
ORA TBL ,X 
STA BITS 
RTS 


TBL BYT %00000001 
BYT %00000010 
BYT 8%00000100 
BYT %00001000 
BYT %00010000 
BYT %00100000 
BYT %01000000 
BYT 8&10000000 
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同 理 索引 传 汉 到 果 积 器 中 且 结 果 放 回 BITS. 中 。 

. 除 此 之 外 ， ORA 还 有 其 他 用 途 。 例 如 可 用 来 测试 记 避 
体 中 二 个 或 多 个 位 元 租 是 否 都 饥 0。 只 要 把 第 一 个 位 元 租 载 
入 累积 器 中 ， 然 后 与 接 下 来 的 位 元 组 作 OR 画 数 ， 如 果 最 后 
结果 民族 标 仿 1 则 玫 示 所 有 测试 的 位 元 组 都 是 0， 假 如 有 某 
一 位 元 租 不 估 0， 则 Z 族 标 需 0 。 


苑 例 : 
的 
ORA BYTE2 
ORA BYTE3 
ORA BYTE4 
ORA BYTEn 
BEQ ALLZER- 

移动 和 旋转 指 全 


CSHIFT AND .ROTATE /NSTRUCTIONS.) 


6502 有 4 个 移动 和 旋转 指 今 ， 分 别 是 : 算术 往 左 移 ， 
导 辑 往 左 旋转 和 往 右 旋转 。 汪 些 指令 的 最 简单 形式 是 在 累积 
器 上 运 算 。 是 6502 累积 器 位 址 法 。 


算术 往 左 移 (ASL) 指 命 
《4RITHMETIC SHFTLEFT (AS INSTRUCFON ) 
过 指 今 把 累积 器 所 有 的 位 元 都 往 左 移 一 位 ， 位 元 0 移 到 


j} ， 
位 元 1， 位 元 1 移 到 位 元 2 等 ， 将 ”0 ” 移 到 位 元 0， 而 位 
人 
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了 


”7，YOU CR LEAYvE THE 
CLASSROOM. THE REST 
OF YOU CoN MOvE TO THE 
LEFT ONE DESK 
“GyYOU CaN GO T0 DESK 


”ARSL INSTRUCTION 


党 要 移动 办 积 器 的 值 ， 则 指令 不 需要 有 到 算 元 。 
和 范例 : 


把 低 障 尼 波 移 到 高 障 尼 该 
LDA VALUE 
ASL 
ASL ;FOUR SHIFTS MOVE THE L.0. 
ASL ;FOUR BITS INTO THE H.0. 
ASL :FOUR BITS (L.0，FOUR BITS 
STA VALUE :BECOME ZERO) 


假如 需要 移动 多 位 元 位 冒 ， 则 可 执行 ASL, 多 次 。 


碌 1 
YETTTTTTT 
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玩 辑 往 右 (LSR) 指 兮 
(LOGICAL SHIFT RIGHT (LSR) INSTRUCTION) 


过 指令 把 资料 往 右 移 一 位 元 。”0 ”被 移 到 位 元 7， 位 
元 7 移 到 位 元 6 …… 等 ， 而 位 元 0 移 到 进位 旗 标 。 假 如 你 有 
二 个 8CD 数字 而 想 分 成 二 位 元 粗 ( 即 低 障 尼 波 到 第 一 位 元 
租 而 高 队 尼 波 到 第 二 个 位 元 组 ) ,把 低 了 尼 波 弄 到 第 一 个 位 
元 组 很 简单 ， 只 要 把 值 载 入 累积 器 中 ， 而 与 $SF 作 AND， 再 
把 和 结果 存 回 第 一 个 位 元 粗 即 可 。 


[本 -和 
名 人 2 1 组 


和 范例 : 


LDA VALUE 
AND # 和 SF 
STA LOC1 


而 把 值 和 $F0 作 AND' 薄 不 能 完全 得 到 高 障 尼 波 ， 央 篇 
我 们 所 要 的 值 仍 在 累积 器 的 高 阶 尼 波 中 。 必 须 用 LSR 指令 
把 资料 往 右 移动 4 位 ， 到 低 阶 尼 波 ， 然 后 再 存 回 第 二 个 位 元 
租 。 


范例 : 


LDA VALUE 
AND #SFO 


R 
STA LOCLI+S1 
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因 仿 自 动 把 0 移 到 位 元 7， 所 以 作 了 四 次 LSR 指 今后 
， 累 积 器 的 高 障 尼 波 都 殉 成 0 ， 就 无 需 再 和 ##$ 作 AND 了 | 


LDA VALUES 
LSR 
LSR 
LSR 


LSR 
STA LOCL+S1 
最 后 的 程式 如 下 : 


LDA VALUE 


STA LO0CL1+$1 


往 左 旋转 (ROL) 指 今 : 
CROTATE LEFT(ROU /NSTRUCTION ) 


ROL 与 ASL 很 类 似 ， 除 了 一 点 : .ASL 是 移 0 到 位 元 
0， 而 ROL 是 把 进位 族 标 移 到 位 元 0。 因 此 ROL 是 把 位 元 
0 移 到 位 元 1 移 到 位 元 2 ，…… , 位 元 7 则 移 到 进位 旗 标 ， 
而 进位 旗 标 移 到 位 元 0。 如 果 过 炉 作 九 次 ROL L 则 会 再 得 到 
原来 的 值 指 今 符号 是 ROL 。 


第 九 章 ”还 辑 单 幕 和 位 元 有 运 算 131 


三 车 攻 全 访 抽 和 吕 
CROTATE RIGHT (PROR) INSTRUCTION) 


把 稍 积 器 往 右 旋 村 而 把 进位 族 标 移 到 位 元 7， 位 元 0 移 
到 进位 族 标 ， 符 号 雯 ROR。 与 ROL 一 样 束 积 作 九 次 ROR. 


会 得 到 原来 的 值 


移动 和 旋转 记 慑 体位 置 
(CSHIFTING AND ROTATING MENMORY LOCATIONS 


到 目前 坑 止 的 旋转 和 移动 指 今 都 是 对 时 积 器 作 的 。. 6502 
也 有 对 让 己 体 位 填 作 移动 和 旋转 的 指令 。 假 如 指 今 的 运算 元 
栏 不 是 空白 ， 则 代表 一 个 绝对 位 苇 , 位 置 上 的 值 将 被 移动 或 
旋转， 情形 和 果 积 器 相同 。 同 时 也 可 以 使 用 驼 引 位 址 法 。 


。 

和 范例 
ASL LOC1 -SHIFTS MEMORY LOCATION LOC1 LEFT 
LSR TEMP ”~SHIFTS MEMORY LOCATION TEMP RIGHT 


ROLLBL+S1 -ROTATES MEM LOC，LBL LEFT 
-~ROTATES MEM LOC.X+S 和 1 RIGHT 


ROR + 多 1 

ASL -SHIRFRTS THE ACCUMULATOR LEFT 
LSR -SHIFTS THE ACCUMULATOR RIGHT 
ROL -ROTATES ACC T0 THE LEFT 


-ROTATES ACC TO THE RIGHT 
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用 ASL 来 作 乘法 
CUSING ASL TO PERFORN MULTIPLICATION ) 


把 数字 往 左 移 一 位 即 等 於 乘 以 其 底数 。 例 如 把 十 进位 数 
93， 往 左 移 一 位 成 930 ， 就 等 於 乘 以 底数 ( 10 )。 同 理 二 
进 数 往 左 移 一 位 就 等 从 乘 以 2 ， 移 二 位 等 於 乘 以 4 ， 移 三 位 
等 于 乘 以 8 等 等 。 


和 范例 : 
( 暴 积 器 的 值 乘 8 
ASL ; 乘 2 
ASL :;: 乘 4 
ASL ; 乘 8 
(3) 黑 积 器 的 值 乘 32 
ASL ; 乘 2 
ASL ; 乘 4 
ASL ; 乘 8 
ASL ; 乘 16 


ASL ; 乘 32 


”同时 可 用 BCS 指令 来 测试 浴 位 ， 当 进位 族 标 坑 1 时 表 
示 蕉 位。 如 下 例 一 般 : 


条 例 : 
果 积 器 乘 以 16 ， 同 时 测试 澄 位 
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ASL 
BCS 8RROR 
ASL 
BCS ERROR 
ASL 
BCS ERROR 


ASL 
BCS ERROR 
有 时 候 要 乘 以 不 是 2 的 乘 害 的 数 ， 可 以 把 动作 分 成 九 个 


步 驴 ， 再 把 各 步 屋 的 和 加 起 来 。 例 如 累积 器 乘 以 3 时 ， 可 先 
作 累 积 器 乘 以 2， 再 作 有 累积 器 乘 以 1， 二 者 再 加 起 来 。 


范例 : 
乘 以 3 


STA TENP ;MAKE A TENMPORARY COPY 
ASL ;MULTIPLY ACC BY TWO 
;ADD IN THE ORIGINAL VALUE 


CLC 
ADC TEMP ;TO GET 2xACC + ACC = 3xACC 


又 如 乘 以 6， 可 以 分 成 乘 以 2， 及 乘 以 4 两 个 步 又 。 
和 范例 : 


、 ASL ;GET ACCx2 
乘 以 6 STA TENP ;AND SAVE 
ASL ;MULTIPLY ACC BY FOUR 
CLC ;ADD IN TEMP VALUE 


ADC TEMP ;TO GET 2xACC + 4xACC = 6xACC 


另 一 个 常用 的 乘法 是 乘 以 10 ， 可 分 成 乘 以 8 和 乘 以 2。 
范例 : 
乘 以 10 
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ASL :MULTIPLY BY TWO 
STA TEMP ;SAVE 

ASL :MULTIPLY BY FOUR 
ASL ; 盾 ULTIPLY BY EIGHT 
CLC ;ADD IN TEMP VALUE 
ADC TEMP ;TO GET 10xACC 


用 移动 来 聚集 资料 
CUSING SHIFTS TO UNPACK D4TA) 


第 2 草 人 提 到 聚集 的 资料 。 二 个 BCD 数字 可 聚集 成 一 
位 元 租 ，8 个 布 林 值 也 可 以 集成 一 位 元 组 。 聚 集 可 以 节省 位 
去， 但 较 刘 杂 且 执 行 速度 较 慢 。 

可 以 使 用 把 位 元 组 中 不 要 的 位 元 罩 除 的 方式 打 散 ( um- 
packed) 资料 ， 再 往 右 移 到 右 婉 位 冒 。 例 如 BCD 数字 ， 有 
二 机 : 高 障 十 进位 数 和 低 阶 十 进位 数 。 假如 你 要 的 是 低 障 十 
进位 数 ， 只 要 把 数值 和 $F 作 AND 即 可 ， 过 床 一 来 不 要 的 位 
元 都 已 被 罩 除 且 已 向 右 看 彰 。 如 果 是 要 高 阶 十 进位 数 就 复杂 
一 点 ， 作 完 AND 之 后 ， 要 再 把 资料 往 右 移 4 位 ， 而 左思 4 
位 元 自动 补 0。 

不 仅 在 BCD 中 要 作 资料 聚集 ， 有 时 候 可 能 在 一 位 元 租 
中 会 有 三 栏 资 料 ， 例如 位 元 7 是 布 林 值 ， 位 元 4 ，5 ，6 是 
AApple slotot 号 码 而 在 低 阶 尼 波 坑 一 16 进位 数 。 要 拿 出 左 
超 4 位 元 较 简 单 ， 只 要 与 $IF AND 即 可 ， 而 拿 出 中 间 三 位 
元 则 较 篮 厅 ， 首 先 把 黑 入 器 往 右 移 4 位， 其 次 与 $7 与 AND' 
即 可 。 

范例 : 

取出 中 间 三 位 元 
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A VALUE “ 
R . ;SHIFT RIGHT FOUR TIMES 
愉 ;TO RIGHT JUSTIPFY FIELD 
3R AND ELIMINATE 世 .0. 

SR INIBBLE 

AND 北 %O111 ;MASK OUT BOOLEAN VALUE 


要 取出 那个 布 林 值 只 要 作 7 次 LSR 即 可 。 另 外 有 一 种 
更 好 的 方法 ， 先 将 累积 器 与 $80 作 AND ， 再 往 左 移 一 位 ， 
将 布 林 值 移 到 进位 族 标 ， 最 后 作 往 左旋 转 ， 将 布 林 值 从 进位 
移 到 位 元 0 即 可 。 


范例 : 


”取出 布 林 值 LDA VALUE 


AND 疼 g80 
ASL 
ROL 


假如 你 只 是 要 测试 布 林 值 ， 就 不 需 作 向 右 看 许 的 动作 可 
直接 用 “BTR/BFL 指 今 测 就 即 可 ( 在 AND 之 后 )， 或 在 
LDA 之 后 用 _BMVBPL 测试 亦 可 。 


用 旋转 和 移动 来 聚集 资料 
CUSING SHIFTS AND ROTATES TO PACK DATA ) 


使 用 前 面 打 散 资 料 的 方法 还 不 金 ， 也 要 能 聚集 资料 才 可 
以 。 过 上 比较 困难 ， 首 先 把 资料 要 存 的 位 锌 先 炙 成 0 ，( 可 用 
AND 指令 来 作 ) ， 其 次 把 要 放 入 的 资料 先 移 到 正确 的 位 车 
， 最 后 用 ，OR' 指令 把 资料 移入 到 成 0 的 栏 位 上 
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”pACvING DaTA” 


前 例 中 聚集 SLOT 号 码 
PHA ;SAVE DATA TO BE PACKED 
LDA VALUE 
AND #Z10001111 、;MASK 0UT SLOT 站 FIET.D 
STA VALUE JSAVE 
PLA ;RESTORE ACC 
ASL ALIGN FIELDS 
ASL 
ASL 
ASL 
ORA VALUE ;PUT INTO VALUE 
STA VALUE 


以 后 会 再 讨论 聚集 的 技巧 ! 


景 划 只 坚 党 
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第 十 章 
多 重 精 确 度 运算 


概 论 (GENERAL) 


到 目前 需 止 ， 所 有 的 运算 都 是 只 对 8 位 元 而 作 。 有 时 候 
御 需 要 多 於 8 位 元 的 运算 。6502 限制 每 次 只 能 处 理 8 位 元 
， 如果 要 上 处理 16 或 32 位 元 ， 则 需 分 成 多 个 8 位 元 运 算 。 例 
如 ，16 位 元 加 法 ， 可 用 两 次 8 位 元 加 法 来 处 理 。 5 


多 重 精 确 度 的 选辑 运算 

(WULTIPLE-PRECISION LOGICAL OPERATIONS) 
多 重 精确 度 的 愤 辑 有 运算 ( AND, OR, 和 XOR ) 最 容易 

上 处理 。 假 坝 有 二 个 16 位 元 的 运算 元 分 别 在 位 址 A,Al 和 B， 

B1 上 。A 及 B 的 滤 辑 有 运算 就 等 於 ( AANDB )，( 人 

A1 AND B1)。 即 把 A 和 B 作 AND， 放 在 结果 的 低 障 位 元 租 

， 再 把 A1 和 B1 作 AND， 帮 在 结果 的 高 阶 位 元 粮 。 


范例 :A 和 B 作 AND， 和 结果 存在 C 
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LDA A 
AND 日 
STA C 
LDA A+ 和 1 
AND B+S 和 1 
STA C+ 多 1 


ORA 和 EOR 指令 的 作法 类似。 
” 蔓 例 : 


LDA A 
ORA B - 
STA C 
LDA A+S$1 
ORA B+S$1 
STA C+S1 


LDA A 
XOR- B 
STA C 
LDA A+S$1 
XOR B+S$1 
STA C+S1 


“Two BYTE ASL” 


第 十 章 ”多重 精确 度 运 算 139 


多 重 精确 度 的 移动 和 旋转 
(CHMULTIPLE-PRECISION SHIFTS AND ROTATES ) 
移动 和 旋转 扩充 的 方式 选辑 有 运算 不 太 类 似 。 例 如 ASL 
指令 ， 假 如 把 低 障 位 元 和 组 往 左 移 一 位 ， 则 位 元 0 会 忆 成 0 ， 
而 位 元 7 移 到 进位 旗 檬 ， 再 对 高 阶 位 元 租 作 ASL ， 则 从 前 
面 位 元 7 移 过 来 的 进位 东 疫 有 如 16 位 元 ASL 指 今 应 设 作 到 
的 移 到 位 元 0 中 ， 而 是 ”0 ” 定 移 入 位 元 0 中 。 因 此 姜 裔 儿 
高 阶 位 元 租 作 ROL 指令 : 


ASL LOBYTE 
ROL HOBYTE 


如 此 从 低 障 位 元 粗 移 过 来 的 进位 旗 标 ,在 作 ROL 时 就 
便 移 到 高 障 位 元 组 的 位 元 0〈 正 是 我 们 希望 的 ) 。 三 位 元 租 
的 ASL ， 同 理 亦 可 如 下 上 处理 : 
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ASL BYTE 
ROL BYTE+S$1 
ROL BYTE+S2 


同 理 n 位 元 组 ASL 可 由 在 上 列 指 今 系列 中 再 多 加 改 个 
ROL 指 今 来 过 成 。 


多 重 精确 度 的 移动 和 旋转 
二 位 元 租 的 ASL 


多 重 精 确 度 的 选 辑 往 右 移动 系列 
CMULTIPLE-PRECISION LOGICAL SHIFF RIGHT 
SEQUENCES ) 

-同上 面 一 样 处 理 ， 只 是 过 指 今 要 从 高 障 位 元 租 开 始 就 是 
了 。 如 住 LSR 指令 中 ， 把 0 移入 高 阶 位 元 ， 而 最 低 阶 位 元 
移入 进位 族 栋 中。 二 位 元 组 LSR 的 码 如 下 : 
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二 位 元 粗 的 LSR 


LSR BYTE+S$1 
ROR BYTE 


同 理 三 位 元 租 LSR 则 如 下 : 


LSR BYTE+S$2 
ROR BYTE+S$1 
ROR BYTE 


N 位 元 组 LSR 可 由 对 高 阶 位 元 组 作 LSR ， 而 其 余 位 元 
和 组 作 ROR 来 合成 。 


多 重 精确 度 的 往 左 旋转 (MULTIPLE- 
PRECISION “”ROTATE-LEFT SEQUENCES ) 


不 理 的 步 又 如 下 : 首先 把 低 障 位 元 组 旋 转 ， 再 旋转 高 队 
位 元 租 。 例 如 16 位 元 的 只 OL 程式 如 下 : 


ROL BYTE 
ROL BYTE+S1 
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二 位 元 组 的 ROL - 


TO -多 YTE ROL 


进位 旗 标 移 到 位 元 7， 位 元 7 则 移 到 进位 旗 标 ， 然 后 第 _ 
二 个 ROL 指 今 又 把 它 移 到 位 元 8。 最 后 位 元 15 移 到 进位 族 
标 ， 完 成 了 16 位 元 的 ROL 本 而 三 位 元 组 的 ROL 指 今 


则 如 下 : 


ROL BYTE 
ROL BYTE+1! 
ROL BYTE+&8 


多 重 精确 度 的 往 右 旋转 〈MULTPLE- 
PRECISION ROTATE-RIGHT ”SEQUENCES ) 


跟 LSR 指 邻 一样 ， 多 重 精 确 的 ROR 必须 从 高 隘 位 元 租 
开始 旋转 ， 接 著 才 作 低 障 位 元 租 。16 位 元 的 ROR 如 下 : 


ROR .BYTE+S1 
ROR BYTE 
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TvD.STT RDOR 


而 3 位 元 组 的 ROR 则 如 下 : 


ROR BYTE 二 $2 
ROR BYTE 十 委 1 
ROR BYTE 


多 重 精 确 度 的 不 带 符号 算术 (ARITHMETIC 
WULTIPLE-PRECISION UNSIGNED ) 


只 能 作 一 位 元 租 的 运算 兹 不 金 ， 常 常 需要 玫 示 大 於 255 
的 值 。 假 如 有 16 位 无 的 算 了 本， 就 可 表示 从 0 到 16777215 之 
间 的 值 。 若 是 用 4 位 元 租 (32 位 元 )， 则 可 麦 示 超 过 4 百 克 
的 值 。 多 重 精确 度 的 算术 的 处 理 方 式 和 多 重 精确 度 的 源 辑 妈 
算 的 处 理 方式 相同 ， 每 次 都 作 一 位 元 租 的 运算 。 

最 大 的 问题 是 要 如 何 抓 住 党 发 生 洽 位 〈 或 不 足 位 ) 时 所 
失去 的 资料 。 首 先 要 知道 当 发 生 澄 位 时 需要 保留 住 那些 资料 
。。8 位 元 加 法 的 最 大 值 是 $FF + $FF = S$IFE (或 510 ) 
， 因 此 要 多 使 用 一 个 位 元 来 作 此 扩充 的 算术 运算 。 

当 发 生 洽 位 时 ， 进 位 旗 标 会 等 外 1， 否则 需 0。 因 此 可 
用 进位 旗 标 作坊 第 9 个 位 元 。 前 面 提 过 ， 在 作 加 法 之 前 要 先 
清除 进位 旗 标 ， 因 需 加 法 时 ， 会 把 累积 器 ， 运 算 元 和 进位 族 
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标 都 加 在 一 起 ， 所 以 要 先 清除 进位 ， 否 则 会 多 1 。 

而 现在 进位 旗 标 成 仿 8 位 元 加 法 的 进位 ， 正 好 巍 裔 加 到 
高 障 位 元 组 去 以 得 到 正确 的 值 。 事 实 上 6502 是 过 认 作 的 。 
例如 16 位 元 的 OP1 + OP2 ， 东 把 结果 存 到 RESULT ， 其 


程式 如 下 : 


注意 ， 


CLC ;ALRAYS BEFORE AN ADDITION 
LDA 0P1 

ADC 0P2 

STA RESULT 


LDA 0P1L1+S$1 
ADC OP2 + 和 $1 
STA RESULT +S$1 


现在 在 各 加 法 之 间 不 要 清除 进位 ， 因 志和 进 位 旗 标 


的 值 是 有 用 的 。 三 位 元 组 的 加 法 则 如 下 : 


CLC 

LDA 0P1 

ADC 0P2 

STA RESULT 
LDA 0P1+S$1 
ADC 0P2+S1 
STA RESULT+S$1 
LDA 0PLI+S$2 
ADC 0P2+S2 


STA RESULT+S2 ”nm 位 元 租 的 加 法 同 理 可 推 。 


N 位 元 组 不 带 符号 的 加 法 规则 
( RULES FOR UNSIGNED N-BYTE ADDJTON ) 


( 山 不 要 和 其 他 加 法 的 规则 和 弄 混 。 

G) 在 作 加 法 之 前 要 清除 进位 旗 标 。 

(9) 先 加 第 一 个 位 元 组 ， 把 结果 存 起 来 。 

(再 加 ， 第 二 ， 第 三 …… 个 位 元 组 ， 把 结果 也 存 起 来 ， 
在 作 过 些 加 法 前 不 要 清除 进位 旗 合 。 

G) 在 作 完 第 n 次 加 法 之 后 ， 若 是 进位 族 标 怖 1， 则 表示 
发 生 浴 位 ， 和 否则 进位 = 0 。 


第 十 章 “ 多 重 精确 度 逐 算 145 


多 重 精 确 度 的 无 号 减法 (MULTPLE- 
PRECISION UNSIGNED SUBTRACTION ) 

减 法 的 作法 和 加 法 很 像 。 在 作 单 精确 度 的 减法 之 前 ， 要 
先 设 定 进 位 旗 标 ， 同 样 地 作 多 重 精 确 度 的 减 法 前 ， 也 要 先 设 
定 进 位 ， 然 后 先 作 低 障 位 元 租 的 相 减 ， 接 著作 高 障 位 元 组 的 
相 沽 ( 结果 都 要 存 起 来 ) ， 最 人 后， 若是 进位 = 0， 则 表示 发 
生 不 足 位 ， 否 则 进位 = 1 则 表示 一 切 正常 。 
二 位 元 组 的 减 法 范例 : 
( EXAMPLE OF TWO-BYTE SUBTRACTION : ) 


SEC ;ALWAYSI1 


LDA 0PRND1 ;GET .0.， BYTE 0F OPERAND 洗 1 
SBC 0PRND2 ;SUBTRACT L.0. BYTE 0F. OPERAND #2 
STA RESULT JSAVE IN L.0，BYTE 0F RESULT 


LDA 0PRND1 + 和 1 ,GET H.0. BYTE OF OPERAND 站 】 

SBC 0PRND2+S$1 ;SUBTRACT H.0，BYTE OP OPERAND 老 2 
STA RESULT + 和 1 ;SAVE IN H.0， BYTE OF RESULT 

BCC ERROR :TEST FOR OVERFLOW 


要 作 n 位 元 钥 的 减法 ， 只 要 多 加 区 个 SBC 指 今 即 可 。 
刀 住 在 一 串 减 法 指 今 中 不 要 清除 进位 旅 标 。 


多 重 精 确 度 减 法 的 规则 
(RULES FOR UNSIGNED MULTPLE-PRECISION 
SUBTRACTION ) 
不 要 和 其 它 运 算 的 规则 和 弄 混 。 
(在 作 沽 法 之 前 先 今 进位 = 1 。 
(3) 将 低 障 位 元 组 相 减 ， 结 果 存 起 来 。 
W 再 将 第 二 ， 三 …… 个 位 元 组 相 减 结果 也 存 起 来 。 
G 作 完 第 n 个 位 元 组 的 相 减 之 后 ， 若 C= 0 则 表示 发 生 
不 足 位 ， 否 则 一 切 正常 。 
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多 重 精确 度 的 有 号 算术 
CMULTIPLE-PRECISION SIGNED ARITHMETIC) 


多 重 精确 度 的 有 号 算术 的 作法 和 多 重 精确 度 的 无 号 算术 
一 样 ， 加 法 旦 ， 先 清除 进位 ， 然 后 一 个 一 个 位 元 组 相 加 ， 而 
减法 时 先 设 定 进 位 ， 然 后 一 个 一 个 位 元 组 相 减 。 

唯一 的 不 同 点 是 誉 位 和 不 足 位 的 测定 。 和 与 单 精确 度 的 带 
符号 算术 一 样 ， 要 用 V 旗 标 而 不 是 C 旗 标 来 测试 浴 位 或 不 足 ， 

只 有 当 改 生 洽 位 或 不 足 位 时 ，V 旗 标 才 需 1 ， 否 则 坟 0 
。 注意 在 减法 中 如 果 发 生 不 足 位 则 ，V 旗 标 = 1， 人 恰好 与 不 
带 符号 算术 相反 ( 若 C = 0 则 表 不 足 位 ) 。 


多 重 精确 度 的 十 进位 算术 
(WULTIPLE-PRECISION DECIWMAL ARITHMETIC ) 


先 设 定 ， 十 进位 旗 标 ， 就 可 以 作 多 重 精确 度 的 BCD - 算 
术 了 。 规 划 和 不 带 符号 的 加 法 ， 减 法 都 一 样 。 不 要 忘记 作 完 
站 
本 ， 不 论 是 单 精确 度 或 多 重 精确 度 。 


多 重 精 确 度 的 增加 
CWMULTIPLE-PRECISION INCRENENTS) 


有 时 候 希 肇 能 用 INC 指令 来 增加 二 位 元 组 的 位 贰 内 的 
值 。 龙 其 是 和 间接 工 索 引 位 址 法 合用 时 4 更 是 有 用 。 

但 INC 指 今 阔 不 会 影响 C 旗 标 ; 所 以 无 法 用 C 旗 标 来 
测试 8 位 元 的 众 位 。 IINC 指 今 只 会 改 构 Z 和 N 族 标的 值 。 
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但 可 以 用 2Z 旗 标 当 作 C 族 标 ， 因 坊 INC 指 邻 只 有 当前 值 坑 
$FF 时 才 会 发 生 浴 位 ， 而 $FF 加 1 即 得 $0， 所 以 党 用 
INC 指令 时 ， 若 发 生 浴 位 则 Z 旗 标 会 僻 1 ， 因 此 可 用 NN 来 
六 试 涂 位 情况 。 


移 例 : 16 进位 的 增加 指 仿 


INC LOC 

BNE LBL 

INC LOC+ 人 1 
了 8L : 


同 理 3 位 元 组 的 增加 指 今 如 下 : 


INC LOC 

BNE LBL 

INC LOC+S$1 

BNS LBL 

INC LOC+S$2 
LBL: 


更 多 精确 度 的 增加 指 今 处 理 方 式 类 似 。 注 意 ， 过 些 增 加 
指 今 是 针对 不 带 符号 的 值 所 作 的 ， 带 符号 的 增加 指令 也 可 以 
合成 ， 但 若 用 ADC 指 今 直 接 加 1 会 更 简 音 。 


多 重 精确 度 的 减 指 合 
CMULTIPLE-PRECISION DECRENMENTS) 


多 重 精确 度 的 减法 和 加 法 一 样 有 用 ， 也 同 加 法 的 不 理 方 
式 类 似 。 有 个 问题 ， 当 从 $0 减 1 成 $FF 时 会 产生 不 足 位 ， 
所 以 要 在 作 减 法 指 今 之 前 先 看 Z 族 标 的 值 ， 但 一 定 要 先 把 位 
置 的 值 载 入 果 积 器 中 才 有 法 子 测 出 是 否 坟 0 。 16 位 元 的 诚 
的 指 今 如 下 : 
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LDA 9PRND .set Z flag 1f 0PRND 1S Zero 


BNE& LBL 
DEC OPRND+S$1 
LBL DEC OPRND 


而 三 位 元 和 组 则 如 下 : 


LDA OPRND 

BNE LBL1 

LDA OPRND +$1 

BNE LBL2 

DEC OPRND +82 
LBL2 DR&C- 0PRND+S1 
LBL1 DEC 0PRND 


基 多 区 三 位 元 租 ， 则 SBC 串 列 会 此 DEC 训 列 更 和 经济。 
”同样 地 多 重 精 压 度 DEC 指 今 只 针对 不 带 符号 的 值 而 作 ， 若 
要 作 带 符号 值 的 减少 ， 则 用 SBC 捉 列 会 更 简单 。 


.多重 精确 度 的 不 带 符号 比较 〈MULTIPLE- 
PRECISION UNSIGNED COMPARISONS ) 


多 重 精 确 度 的 比较 不 像 上 上 面 的 指 今 有 规则 可 循 。 往 一 种 
比较 都 有 一 种 他 然 不 同 的 方法 。 
测试 一 16 位 元 值 是 否 坑 O 。 
(TESTNG A16-BIT VALUE FOR ZERO) 

要 测 武 8 舍 元 的 值 是 示 需 0， 只 要 把 值 载 人 时 各 器 中 然 
后 再 测 Z 旋 标 外 可 。 而 测试 . 16 位 元 的 值 ， 则 要 先 把 低 障 位 
元 组 载 入 果 黎 器 中 ， 然 后 与 高 障 位 元 组 作 OR ， 若 16 位 元 中 
有 某 一 位 元 所 1， 则 Z 族 标 必 壤 0， 否 则 Z = 1。( 因此 什 
等 于 0 ) 
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范例 : 


LDA TSTZER 
ORA TSTZER+S1 
BEQ ISZERO 


测试 一 16 位 元 值 是 否 坑 负数 (TESTNG 
A16-BIT VALUE TO SEEIJFITIS NEGATIVE 


过 较 简 单 ， 只 要 看 位 元 15 ， 即 高 险 位 元 钥 的 作 7 1 
否 需 1 即 可 。 所 以 把 高 障 位 元 组 载 入 累积 器 中 ， 然 人 武英 闪 A 
族 标 ， 即 可 知 其 正 负 。 另 外 也 可 用 BIT 指 分 来 测试 晤 蹈 和 
元 组 和 视 情 况 来 设 定 N 旗 标 。 


相等 和 不 等 的 测试 
(TESTNG FOR EQUALITY AND /NEQUALITY ; 


相等 的 测试 不 太 简 昔 。 要 分 成 二 部 分 ， 首 先 比较 低 聊 代 
元 和 组 ， 若 不 等 则 跳 天 到 程式 别 的 地 方 ， 若 相等 则 按 其 贱 轰 喇 
隘 位 元 组 ， 若 不 等 则 跳 到 与 前 面相 同 的 地 方 ， 否 其 :- 禾 相等 
9 下列 码 当 二 指定 的 运算 元 相等 时 会 跳 到 EQUALS， 在 划 踏 
到 NOTEGQL ! 


LDA 90PRND1. 
CMP DOPRND2 
BNE NE 
LDA GPRND1I +SL 
CNMNMP OPRND2+81 
BNE NE 
JMP EQUALS 

NE JMP NOTEQL 


道 些 码 可 用 来 测试 相等 或 不 等 。 有 把 JMP NOTEQL 
指 今 拿 掉 ， 划 释 成 16 位 元 的 BEO 指 分 ， 当 二 逐 算 雹 不 等 时 


150 APPLE 和 组 合 落 言 


会 到 位 去 NE 去 执行 。 同 样 地 可 用 下 列 码 来 测试 
NOT EQUALS 


LDA 0PRND1 
CMP 0PRND2 
BNE NE 
LDA OPRND1 + 多 1 
CMP OPRND2+ 多 1 
BEQ EQL 
NE ”JMP NOTEQL 
EQL : 


三 位 或 更 多 位 元 组 的 比较 同 理 可 扒 
和 范例 : 三 位 元 租 的 不 相等 测试 


LDA 0PRND1 
CMP OPRND2 
BNE NE 
LDA 0PRND1+S$1l 
CMP 0PRND2 + 和 1 
BNE NE 
LDA OPRND1I +S2 
CNMP OPRND2+S2 
BEQ EQL 
NE ”JWMP NOTEQL 
EQL : 


不 相等 ( <,<=,>,&>= ) 较 容易 处理。 前 面 提 过 
CMP 指 今 只 是 作 减 法 动作 而已， 唯一 不 同 点 是 不 把 千 果 存 . 
下 来 。 多 重 精确 度 的 CMP 可 以 由 CMP 和 SBC 指令 来 模 据 。 
先 用 CMP 来 比较 低 障 位 元 租 ， 然 后 再 用 SBC 指 今 来 比较 其 
他 位 元 和 组， 等 到 都 比较 其 合 ， 就 可 用 BGE ( 或 BCS ) 和 
BLT (或 BCC ) 指令 来 测试 桔 果 了 。 


和 范例 . 
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要 测 武 > 或 < =， 则 可 用 前 面 设 遇 的 方法 ( 在 有 关 单 一 
位 元 组 比较 的 那 一 章 ) 。 唯 一 的 问题 是 要 作 二 个 16 位 元 值 
的 测试 需要 使 用 太 多 的 码 。 另 一 逢 较 好 的 方法 是 仍 用 8 位 元 
上 比较， 但 利用 一 些 数学 知识 。 我 们 改 妓 比较 贤 算 元 的 顺序 ， 
首先 看 测试 X> =Y 的 码 如 下 : 


多 > 一 立 


LDA XX 

CNMP Y 

LDA XfS$1 
SBC Y+S$1 
BGE THERE 


因 需 和 过 Y 就 等 从 了 Y 近 X， 所 以 上 面 的 比较 也 可 用 来 测 
试 Y 入 X 的 情况 。 而 测试 X< =Y 的 码 如 下 : 


X <= Y 


LDA Y 
CMP X 
LDA Y+ 和 1 
SBC X+S1 
BGE THERE 


过 里 以 X 作 和 需要 比较 的 值 ， 且 用 BGE 指 今 。 测 起 ”> 
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”的 码 完全 一 样 ， 除 了 一 山 : 要 用 BLT 转移 指 今 来 代替 
BGE 指 今 。 
多 於 二 位 元 和 组 的 比较 可 以 使 用 更 多 的 SBC 指 今 来 模 气 。 
记 住 适 些 比较 都 只 针对 不 带 符号 的 值 而 作 。 


带 符号 的 比较 
( SIGNED COMPARISONS ) 


首先 要 测试 = ， 装 ， 雳 或 负数 时 所 用 的 指 今 伍 不 带 符号 
的 值 的 方式 相同 。 人 但" <=”,"“<”,，">=>” 的 测试 则 
较 准 。 过 壬 不 说 明 坑 什么 ， 你 只 要 相信 若 V 旗 标 和 C 旗 标 作 
XOR 的 结果 需 1， 则 表示 上 比较 的 结 果 坑 > = ， 否 则 和 结果 坟 
了 PN 和 人 兹 不 会 影响 V 旗 标 ， 所 以 要 用 SBC 
指 今 。 


X >= YY 

SEC 

LDA 基 

SBC Y 

LDA X+Sl 

SBC Y+S$1 

BVS LBL1 

BCS LT 
LBL2  JMP GTREQL 
LBL1 BCC LBL2 
LT: 


SBC X 

LDA Y+S$1 

SBC X+S1 

8BVS LBL1 

BCS GT 
LBL2  JMP LESEQL 
LBLIL BCC LBL2 
GT : 
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LBL2  JMHMP LESS 
LBL1 BCS LBL2 
GE 


X <= TY 


SEC 

LDA Y 

SBC X 

LDA Y+S$1 

SBC X+S$1 

BVS LBL1 

BCC LT 
LBL2  JMP LESRQL 
LBL1I BCS LBL2 
ET 


过 些 例子 兹 不 一 定 是 最 好 或 唯一 的 解答 。 经 由 就 验 和 滑 
整 的 过 程 ， 或 许 你 会 得 到 你 所 需要 的 最 佳 租 合 。 


第 十 章 ”多重 精 玖 度 有 运算 155 


“第 十 一 重 
基本 的 较 出 过 入 


概 ” 葵 (GENERAL) 


接 下 去 的 杰 章 会 举 出 一 些 程式 例子 站 附带 著 解 释 。 若 有 
- 某 些 指令 不 清楚 ， 则 你 应 再 复 多 前 面 炎 章 。 


字 元 累 出 (CHARACTER OUTPUT ) 


在 _ BASIC 中 所 有 输出 都 用 PRINT 陈述 ， 但 在 组 合 语 
言 中 姜 没 有 PRINT 陈述 。 事 实 上 6502 兹 没有 提供 工 / 0 的 
今 ,但 要 作 1/10 时 怎 床 办 呢 ? 在 6502 中 所 有 I/O 仪 器 都 
被 视 专 记 司 体位 和 来 处 理 ， 所 以 梳 入 核 出 都 用 载 入 和 存 入 指 
。 Apple 的 银幕 也 在 记 局 体 范 围 中 。 
因 垮 6502 只 能 一 次 处 理 一 位 元 组 ， 所 以 园 入 输出 也 是 
一 字 元 一 字 元 来 作 。 通常 程式 会 把 一 字 元 载 入 果 积 器 中 ， 然 
后 到 稼 出 字 元 的 副 程 式 去 。 整 数 和 汉 点 实数 则 先 转 换 成 字 元 
再 玉 出 。 
APPLE1I 的 标准 欢 出 途 器 是 黎 幕 ， 就 是 所 请 ”与 记 司 


今 
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体 相配 的 莹 幕 ” 的 一 种 。 每 次 都 以 一 位 元 租 作 需 位 址 来 取出 
要 验 出 的 字 元 。 相 反 地 要 放 资 料 在 Apple 的 葡 幕 中 ， 则 只 
要 把 资料 存在 莹 幕 记 懂 位置 上 即 可 。 Apple ”监督 程式 中 有 
在 莹 幕 上 畔 出 字 元 的 副 程 式 。 但 在 恰 幕 上 那个 位 置 呢 ? 就 肾 
接 在 前 一 个 壕 出 的 字 元 之 后 。 副 程式 放 在 “Apple 监督 程式 
ROM 中 的 位 置 $FDFO0。 用 法 如 下 : 


运程 式 在 银幕 上 共 出 ABC ， 然 后 跳 回 长 督 程式 中 ( 或 
其 他 的 呼 吓 副 程式 ) 。 过 种 输出 非常 简陋 ! 
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另 一 种 坟 好 的 方法 归 刊 用 6502 的 索引 村 在 咒 。 先 用 
STR 指 分 把 字 串 先 在 到 某 位 租 ， 然 后 今 案 引 暂 仔 器 和 仿 1 人 
跳 过 由 假 指 售 STR 所 庆 生 的 码 的 长 度 ) ， 然 后 梳 出 所 有 他 
元 直到 方 存 器 的 什 大 从 字 无 的 长 度 角 止 。 

LDX #S0 
LOOP INX 

LDA STRING ,X 

JSR SFDFO 

CpX STRING 

BLT LOOP 

RTS 


RE STR "TI WONI CARE TO PLAY AGAIN9" 
END 
上 例 中 ，X 杰 存 器 的 原 值 需 0 ， 然 后 增加 成 1。 在 办 出 
字 元 之 后 就 要 比较 X 杨 存 器 和 长 度 位 元 组 的 值 ， 若 小 於 长 度 
位 元 组 ， 则 再 稚 出 另 一 字 元 。 
有 个 骨 题 ， 若 字 串 的 长 度 志 0 怎么 办 ? 至 少 会 输出 一 他 
元 。 有 时 候 会 有 长 度 坑 0 的 字 串 。 要 能 埋 出 长 度 扰 0 的 宁 申 
， 需 使 用 下 列 的 程式 柄 : 


LDX #S0 
LOOP CPX STRING 
BCGE EXIT 
LDA STRING+S1.X 
JSR 和 FFDFO 
INX 
JMP LOOP 
EXIT RTS 
STRING STR "II WON! CARE TO PLAY AGAIN?” 
END 


不 再 增加 和 要 存 器 的 值 而 改 成 当 载 入 A 要 存 器 时 ， 加 个 
分 支 到 STRING 的 位 址 上 。 如 此 一 来 党 字 电 的 最 后 字 元 载 
入 果 往 响 时 ，X 要 存 器 的 值 会 等 於 字 捉 的 长 度 减 1 。 当 X 要 
存 器 的 值 等 於 玫 示 长 度 的 位 元 租 时 ， 副 程式 就 停止 执行 ， 然 
后 用 BGE 指 今 来 代替 BEQ 指令 。 


158 “人 APPLE 和 粗 合 话 襄 


内 然 运 方法 比 前 面 一 个 一 个 字 元 柱 出 的 方法 好 ， 但 仍 有 
缺点 。 若 要 印 出 许多 行 资料 时 怎么 办 ?在 BASIC 中 可 以 再 
多 写 一 PRINT 陈述 即 可 。 但 在 组 合 攻 言 中 ， 则 必须 反 团 写 
上 面 的 串 列 ， 吉 薄 不 太 方 便 。: : 

ASCH 字 元 集合 中 没有 包括 一 特殊 字 元 ”ETX ”( 即 

end-of-text ) (人 $83,， or control-C ) ， 但 有 时 候 件 
需要 核 出 过 字 元 ， 因 此 可 愤 择 一 个 几乎 很 少 输出 到 尝 忱 装 芙 
的 字 元 硝 代表 。 (@) ”就 合乎 适 个 人 条件， 且 在 4APPLE 1 中 
的 码 坊 $00 ， 过 可 任 盖 导 择 过 字 元 码 ， 但 因 坊 人 
雳 ， 所 以 可 用 在 下 面 例 子 : 


LDX #S0 : INIT POINTER TO CHARACTERS 
LOOP  。 LDA STRING,X :GET NEXT CHARACTER 

BEQ EXIT :IF ZERO，QUIT 

JSR SFDFO ; OTHERWISE DOUTPUT 

INX 

JMP LOOP 
EXIT  。 RTS 
STRING ASC "I WON! CARE TO PLAY AGAIN?" 

BYT $0 

END 


注意 用 ASC 指令 来 代替 STR 指 今 。 因 入 STR 假 指 今 
先 办 出 一 长 度 位 元 和 组， 然后 再 输出 字 串 ， 过 阔 不 是 我 们 所 希 
肇 的 。 

只 要 加 入 一 些 carriage returns 在 文章 中 ， 就 可 以 输出 
许多 行 了 。 


LDX #80 

LOOP  。 LDA STRING ,X 
BEQ EXIT 
JSR $FDFO 
INX 
JMP LOOP. 
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EXIT S 
STRING ASC "IT WONI CARE TO PLAY AGAIN?” 
BYT 和 $8D 
ASC "(YVAN) :" 
BYT $0 
END 
上 例 中 在 苇 束 之 前 会 驹 出 二 行 。 只 要 在 女 章 字 训 中 加 入 
CR($8D ) 即 可 ,就 可 输出 任 芭 多 行 。 
过 程序 有 个 缺点 ， 因 和 坑 用 又 杰 存 器 来 接近 要 格 出 的 字 申 
元 素 ， 因 此 字 申 的 长 度 要 小 於 等 於 255。 如 果 只 有 一 行 ， 则 
255 就 钓 了 ， 但 如 果 要 粮 出 很 多 行 则 255 太 小 事实 上 ， 上 例 
中 有 一 个 漏洞 ; 如 果 要 析出 多 於 255 个 字 元 ， 则 X 覃 存 器 会 
其 位 又 枕 成 0 而 从 字 捉 的 第 一 个 字 元 开始 入 出 ， 如 此 一 来 会 
形成 不 停 的 班 路 且 印 出 许多 没有 的 资料 。 要 避 喝 过 销 浆 ， 则 
用 下 列 的 程式 码 


LO00P LDA STRING ,X 


INX 
BNE LOOP 


EXIT 。 RTS 
STRING ”ASC "> 255 CHARACTERS HERE" 
BYT S0 


SEND 


在 例子 中 , 用 BNE LOOP 指令 来 代替 JMPLOOP 指 
今 。 若 X 杰 存 器 发 生 澄 位 ， 则 会 跳出 副 程式 而 不 再 粒 和 檀 作 。 
到 壬 的 改正 背 不 是 允许 你 输出 多 於 255 个 字 元 ， 而 是 当 略 出 
了 255 个 字 元 之 后 就 会 自动 停止 。 因 此 ， 字 串 的 某 邵 分 仍 没 
有 被 壹 出 ， 可 是 你 的 程式 御 不 会 再 有 不 停 的 妈 路 和 在 莹 幕 上 
印 出 一 大 堆 无 用 的 资料 了 ! 

要 输出 有 长度 大 於 255 的 字 捉 则 要 用 一 个 16 位 元 的 指标 ” 
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。 也 就 是 强 要 用 由 Y 问 接 索 引 的 位 址 表示 法 。 下 面 的 副 程 式 
可 以 万 许 你 验 出 任意 长 度 的 字 训 : ( 少 於 65535 个 字 ) 


LDA #STRING ;MOVE ADDRESS OF STRING 
STA 80 ;INTO LOCATIONS 和 $0 AND 
LDA /STRING ;和 1 
STA S1 
LDY # 0 ,INIT Y REGISTER 

LOOP LDA (SO0),Y 
BEQ EXIT 


BNE LO0P ;TIPR NO OVERFLOW，KEEP IT UP 
INC $1 ;INCREMENT BEYOND 8 BITS 


EXIT RTS 
STRING ASC "STRING OP ANY LENGTH" 


HEX 00 5 
END 


这 个 程式 有 -- 些 特点 ， 首 先是 增加 立 杰 存 器 而 非 位 置 $0 
的 值 。 过 会 节省 一 个 位 元 粗 的 码 同 时 速度 也 较 快 。 其 次 在 雪 
行 副 程 式 之 前 要 先 设 定位 置 $0 和 $1 的 值 。 几 然 可 能 需要 更 
多 的 码 来 高 过 个 副 程式 ， 但 御 值得 ， 因 坑 过 副 程 式 可 玫 成 通 
用 的 副 程式 。 看 下 列 程式 : 


PRTSTR  STA $0 
LOOP LDA (SO0),Y 


INC 多 1 
BNE LOOP 


EX7T RTS 


有 了 过 价 副 程 式 ， 你 只 需 把 核 出 字 串 的 位 址 载 入 累积 器 
和 YY 要 存 器 ( 高 阶 位 元 组 在 Y 要 存 器 ， 低 障 位 元 和 组 在 累积 器 
) ， 然 后 使 用 “JSR PRTSTR 指 今 即 可 。 
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和 范例 : 


LDA #STRING 
LDY /STRING 
JSR PRTSTR 
RTS 
STRING ASC "STRING 0F ANY LENGTH" 
BYT $%0 


END 


现在 要 输出 -- 定 只 要 3 行 指令 就 可 以 了 。 但 过 方法 仍 
有 两 个 人 缺点， 首先:: 行 仍 比 一 行 多 二 行 ， 其 次 吉方 法 需要 把 
资料 传 返 到 累积 路 和 Y 要 存 器 ， 最 好 是 可 品 除 用 要 存 器 来 传 
返 参 数 。 
最 后 一 种 方法 是 利用 6502 堆 登 把 字 溃 的 位 址 傅 从 栓 天 
程式 。 看 下 列 程式 : 
JSR PRINT 


ASC "HELLO THERE" 
HEX 00 


过 程式 会 跳 到 副 程 式 PRINT 中 ， 然 后 再 回 到 下 一 个 指 
今 一 一 即 字 元 ”也 ”， 但 各 不 是 所 希望 的 ， 字 串 应 臣 放 在 不 
会 被 执行 到 的 地 方 。 前 面 提 过 ， 呼 叫 副 程式 上 时， 返回 位 址 -1! 
就 彼 区 入 堆 登 中 。 当 位 址 被 樟 出 且 加 1 后 就 指 到 ” HELLO 
”中 的 ” H”。 用 二 个 指标 就 可 以 输出 所 有 的 资料 直到 碰 到 
“00 ” 坑 止 。 当 碰 到 $0 时 ， 下 一 个 位 元 组 的 指 今 会 再 把 位 
址 再 奈 人 堆 登 中 ， 然 后 执行 正常 的 RTS 指 今 。 跳 回 之 后 ， 
6502 从 $00 和 后面 的 程式 维 檀 执行 下 去 。 另 一 种 作法 是 当 磁 
到 $0 时 ， 把 位 址 加 1， 然 后 间接 地 跳 到 那个 位 址 。 过 可 模 
据 RTS 指 今 且 节省 了 一 些 空间 。 最 后 ， 副 程式 PRINT 更 改 
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如 下 : 


PRINT 。” STA ASAVE :SAVE ACC 
STY YSAVE JSAVE Y REG 


STA ZPAGE 


STA ZPAGE+S 和 1 
JSR INCZ 
LDY 外 S0 
PLOOP ” LDA {(ZPAGE) ,Y 
BEQ EXIT 
JSR SFDFO 
JSR INCZ 
JMP PLOOP 


EXIT JSR INCZ 
LDA ASAVE 
LDY YSAVE 
JMP (ZPAGE) 


INCZ INC ZPAGE 
BNE INCZ0 
INC ZPAGE+ 和 1 
INCZ0 。” RTS 


当 呼 叫 程 式 时 ， 字 趾 是 肾 接 在 JSR 指令 之 后 ， 而 以 16 
进位 的 00 作坊 千 束 。 


二 
和 范 例 : 
JSR PRINT 
ASC "TI WONI CARE TO PLAY AGAIN?" 
BYT $8D 
ASC "(YVN) :7 
BYT $0 


JSR PRINT 

ASC "HELLO THERE，HO 有 ARE YOU1" 
BYT $0 

JSR PRINT 

8BYT $8D 

ASC "TIT AM A SMART COWMPUTERI” 
BYT $0 


ETC...， 
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标准 垃 出 和 遇 巡 装 置 (STANDARD 
OUTPUT AND PERIPHERAL ”DEVICES ) 


到 目前 人 坑 止 都 是 输出 到 银幕 上 。 要 在 莹 幕 上 输出 一 字母 
， 只 要 把 字 元 载 太 累积 器 中 ， 然 后 JSR 到 $FDF0 即 可 。 在 
租 合 语言 中 最 好 不 要 用 彼 对 位 址 ， 所 以 可 以 用 EQU 指 今 定 
义 一 符号 人 性 标示 ， 今 其 值 优 $FDF0 可 以 用 标示 COUT1 代 
表 ， 因 和 坊 在 Apple 监督 程式 中 也 是 用 过 个 标示 ， 过 样子 别 
人 看 你 的 程式 就 会 联想 到 辟 幕 输出 程式 了 ! 

有 时 候 要 把 资料 输出 到 别 种 油 毛 装填， 处 理 的 方式 和 在 
和 莹 幕 上 输出 的 方式 类 似 。 也 是 把 要 输出 的 字 载 人 累积 器 中 ， 
然后 用 JSR 跳 到 处 理 葵 出 的 副 程 式 。 副 程式 的 标准 位 址 是 
$cn00 ， 其 中 mn 坑 遇 过 装置 的 扩充 接点 号 码 ， 和 范围 坑 0 到 
7。 注 意 吉 方法 只 对 板 上 有 ROM 的 ” 逢 慧 型 ” 尝 尖 上 装填 有 
效 。 若 是 从 电子 系统 或 微型 成 品 买 来 的 ”愚笨 型 ” 肖 按 装 蔷 
则 要 用 另 一 套 完全 不 同 的 ” 虹 动 程式 软体 ”记忆 位 苇 ” 的 方 
法 。 同 时 过 方 法 也 不 适用 在 Disk 儿 | 或 Tape 咱 装 置 上 ， 因 入 它 
们 用 ROM 来 中 出 载 入 程式 。 假 如 你 在 扩充 接点 1 上 有 个 印 
表 机 界面 ， 则 要 从 印 才 机 上 办 出 字 元 ， 只 要 把 字 元 载 入 累积， 
器 ， 然 后 执行 JSR $C100 即 可 。 

但 用 Apple 的 标准 办 出 会 更 简单 ， 过 时 就 不 用 JSR 
$cn00， 只 要 用 JSR ”$FDED ( 标示 = COUT ) 即 可 。 二 
会 使 输出 资料 返 到 目前 可 动 ( active ) 的 遇 按 装 冒 。 而 用 命 
今 PR#n 和 IN#n 就 可 使 某 遇 沁 装 冒 狗 仿 可 动 的 装 冒 。 要 
模 气 PR#n 命令 ， 首 先 把 扩充 接点 号 码 载 入 累积 器 中 ， 然 后 
JSR 到 鸡 督 程式 中 的 位 蔷 $FE95 上 .( 坊 副 程式 ”OUTPORT 
”) 。 同 理 模 据 IN#n 命 令 ， 则 把 扩充 接点 号 码 载 和 人 果 积 器 中 
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STRQING LU、GO TO TnE 


“PEg&IPHERAL IO 


,然后 JSR 到 位 什 $FE8B 上 ( 坑 副 程式 ” INPORT  ”) 
。 若 要 重新 设 定 I/0 向 量 给 莹 幕 或 键 代 ( 和 PR#0 或 IN#0 
作用 相同 ) ， 则 把 0 载 人 有 累积 器 ， 然 后 跳 到 所 要 的 副 程 式 。 
若是 模 据 PR#0 ， 则 路 到 $FE93 ， 而 IN#0 ， 则 跳 到 
$FE89 。 

当 执 行 位 喜 $FDED 上 的 副 程 式 时 ， 第 一 个 指 邻居 JMP 
( $36 ) ， 而 位 置 $36 ，$37 的 值 通 常 是 $FO0 和 $FD ， 也 
就 是 说 每 当 JSR $FDED (或 JSR COUT ) 时 ， 就 会 执行 
副 程式 COUT1 。 若 在 输出 字 元 之 前 先 作 PR#n 命令 ， 则 值 
$00 会 被 塞 和 位置 $36 ， 而 $Cn 则 彼 塞 和 位置 $37 上 “。 因 此 
字 元 就 由 位 冒 SCn00 上 的 副 程 式 来 负责 壤 出 。 
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-~SIMULATION OF A PR#S 
LDA #S$00 
STA 8$36 
LDA 站 SC3 
STA $37 


-SIMULATION OF A PR#O 
LDA 


STA $37 


-CAUSB 0UTPUT TO BE ROUTED TO USER ROUTINE 
AT LOCATION S$300 

LDA #S500 

STA SS36 

LDA /SS300 

STA SS37 


最 后 的 例子 很 重要 ， 因 入 它 刘 明 了 如 何 来 虹 动 使 用 者 自 
行 定 闵 的 办 出 程式 ， 下 面 即 坊 此 种 副 程 式 的 例子 : 


ORG $300 
LDA #DBLVSN 


DBLVSN JSR SFDFO 
JMP SFDF0 
END 


字 元 办 入 
( CHARACTER INPUT ) 
引 字 元 丈 出 一 榜 ， 字 元 壹 入 也 是 每 次 一 个 字 元 地 处理。 
Apple 1 的 键盘 对 使 用 者 的 程式 而 言 似乎 有 二 个 位 苇 。 位 
芭 $Co000 中 有 最 近 打 入 的 ASCI 码 ， 若 位 元 7 坑 1 ， 则 表示 
- 打 入 的 键 志 有 效 键 ， 否 则 表示 告 未 打 和 人 键 且 位 置 $C000 上 的 
资料 萌 乱 草 义 。 若 要 再 打 入 其 余 的 键 则 只 要 把 位 填 $C010 的 
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位 元 7 清除 久 0 即 可 。 


~ 一 
“D ，vouw CanN GO 
INTD THE AppPpLE .... 


“CHaRgacTER INPuT” 


因此 要 从 Apple E 键 各 落 入 一 个 字 键 ， 要 执行 下 列 步 旦 : 

二 蓝 位 况 $Co00 的 资料 ， 一 直 反 儿 直 到 位 元 7 壤 1。 

gg 把 位 着 $C000 的 资料 载 入 果 黎 器 中 。 

(把 果 禾 器 的 值 在 和 位置 $C010 上 ， 使 位 器 $C000 可 
他 接受 下 一 伯 软 入 。 

程式 如 下 : 


KEYIN LDA SC000 
BPL KEYIN 
STA $C010 


或 许 你 已 注意 到 ， 以 过 种 方式 打 入 的 键 不 合 回 饥 到 莹 芍 
上 。 若 要 有 回 饶 ， 则 用 下 列 程 式 


TPWRTR JSR KEYIN 
JoR COUT 
JNMP TPWRTR 

KEYIN  LDA 8$C000 
BPL KEYIN 
STA SC010 
RTS 

COUT ” EQU SFDFO 
END 
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若 要 跳出 程式 ， 则 按 RESET 键 即 可 。 
使 用 Apple 的 键盘 和 和 莹 幕 时 ， 监 督 程式 提供 了 一 个 非 
党 方便 的 字 元 轮 入 副 程 式 ， 放 在 位 填 $FDOC 上 同时 会 把 目 
前 的 游标 ( cursor ) 位 器 疫 定 成 内 动 型 式 ( flashing mode 
)。 在 打 入 键 时 ， 闪 动 的 游标 会 被 在 其 下 面 的 资料 所 替代 。 
一 种 更 好 的 ”电动 打字 机 ”如 下 : 
LOOP ”JSR RDKEY 
JSR COUT 
JMP LOOP 


RDKEY EQU SFD0C 
COUT  EQU SFDED 
END 


位 贰 $FDOC 上 的 副 程式 不 会 把 字 元 回 僻 到 竹 幕 ， 所 以 
用 JSR COUT 就 可 以 了 。 

就 如 同位 置 $FDED 上 的 副 程 式 透 过 标准 坊 出 来 处 理 
I/O 参数 一 样 ， 位置 $FD0C 的 副 程 式 也 从 ”标准 输入 ”上 
取得 输入 资料 。 利 用 JSR 到 位 俯 $FDOC， 就 可 以 从 Diskl 

Mountain Computers Apple Clockck， 和 外 邵 松 端 机 等 
油 渴 装 趾 芒 入 资料 。 

标准 驾 出 和 办 入 的 处 理 方 式 有 二 点 不 同 。 首 先 副 程式 是 
从 位 置 $S38 和 $39 上 到 得 办 入 资料 的 位 妖 。 其 次 输入 资料 会 
返回 累积 器 中 。 

要 模 据 IN# 命令， 先 要 把 所 要 的 扩充 接点 号 码 载 入 累 
黎 器 中 ， 然 后 JSR 到 位 走 $FE8B 的 副 程 式 。 IN#0 命令 可 
用 JSR $FE89 来 模拟 。 上 处 理 壤 人 时 要 更 小 心 一 些 ， 读 者 
最 好 研究 一 下 Apple “ROM 中 的 监督 程式 中 从 位 置 $FDOC 
到 $FD2E 上 的 输入 程式 。 


由 
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一 行 字 元 的 轩 入 
(INPUTTING ALINE OF CHARACTERS ) 

要 壹 入 一 行 字 元 只 要 过 和 矿 地 苇 入 一 个 个 字 元 ， 然 后 存 到 
连 米 的 位 址 上 就 可 以 了 ， 直 到 碰 到 carrage return 坑 止 。 
看 起 来 很 简单 ， 束 实 上 和 有 一 些 问 题 。 例 如 当 按 下 ” back- 
space ” ASCI 码 $8D。 若 印 出 ” backspace ”， 则 游 
标 会 往 后 移 一 格 ， 但 事实 上 你 冰 不 希望 把 backspace 字 元 党 
作文 章 中 的 字 ， 而 是 要 删 去 前 一 个 打 入 的 字 。 同 时 右 箭 头 键 
(一 ) 和 contro-U 效果 一 样 也 不 会 拷 具 游标 下 的 资料 
， 而 是 返回 ASCI 码 $95 。 另 外 千 束 功 用 的 ESC 也 疫 有 作 
用 。 所 以 事实 上 阔 不 简单 。 

幸 韦 的 是 已 既 有 一 个 整 行 松 入 的 程式 可 供 使 用 。 汪 程式 
的 位 填 是 $FD67 称 垮 ” GETLNZ ”。 呼 叫 此 程式 时 它 会 适 
出 一 个 carriage return ， 同 时 打出 一 ” 提 藤 >”( prompt 
) 字 元 ， 接 著 就 可 从 目前 的 输入 装 苇 芒 入 一 行文 字 。 存 在 位 
起 $33 的 字 永 束 彼 当 作 提 藤 ， 所 以 如 果 你 想 换 新 的 提 父 ( 例 
如 :”: ”或 ”- ”或 ” = ”) ， 只 要 在 呼叫 GETLNZ 之 
前 把 此 字 元 存 和 位置 $33 即 可 。 

GETLNZ 有 两 佰 和 口 点 。 GETLN ( 在 位 置 ”SFD6A) 

在 输出 提 父 之 前 不 会 返 出 ”carriage return 。 而 GETLN1 
( 在 位 填 $FD6F ) 则 二 者 都 不 检 出 。 过 二 个 入 口 点 都 很 有 
用 。 

当 呼 号 GETLNZ ，GETLN 或 GETLN1 ， 文 字 在 那里 
桔 束 呢 ? 所 有 文字 都 是 从 人 位置 $200 开始 顺序 存放 。 每 行 顶 
多 存 256 个 字 。 因 此 第 二 页 永 束 不 能 用 来 存 程式 码 或 资料 。 
从 程式 GETLNZ ， GETLN 或 GETLN1 跳 回 时 ，X 要 存 器 
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会 存 有 扶正 输入 字 元 的 个 数 ( 不 包括 carriage return )。 

GETLN 程式 会 回 镇 所 有 的 罚 入 ， 所 以 使 用 者 可 以 看 到 发 生 
了 什么 事情 ， 此 外 也 支持 “Apple 莹 幕 的 所 有 特性 。 而 究 贡 
要 如 何 使 用 二 些 整 行 术 入 的 程式 呢 ? 我 们 下 一 章 再 计 论 。 
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第 十 二 重 
数值 的 I/XO 


概论 (GENERAL) 


有 时 候 也 要 办 入 或 办 出 数值 资料 。 过 章 将 讨 花 4 种 数值 
LI/O : 

(16 进位 I/O 

(2) 位 元 组 / 数值 I/O 

(3) 整数 ( 16 位 元 或 更 多 ) I/0 

(0 带 符号 整数 ( 16 位 元 的 2 的 补 数 ) TI/O 


16 进 位 的 过 出 〈HEXADECINWMAL OUTPUT ) 


般 简 单 的 罗 出 数值 资料 的 型 驴 是 16 进位 数 。 骆 然 我 们 
可 以 自己 写 个 程式 来 作 适 工作 ， 但 公 冯 有 过 个 需要 ， Apple 
监督 程式 已 经 提供 了 一 个 很 好 的 程式 ， 位 置 就 在 $FDDA 。 
过 程式 把 累积 器 的 值 印 成 二 个 16 进位 数 。 累 积 器 的 值 会 被 
破坏 ， 但 不 影响 其 他 的 要 存 器 。 Apple 监督 程式 中 过 个 程 
式 的 名 字 坊 PRBYTE， 但 在 使 用 者 程式 中 分 通 常 称 霹 HEX- 
OUT 。 胜 设 注 音 的 是 16 进位 蒋 出 和 BCD 过 出 的 程式 是 问 
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一 个 程式 ， 因 此 如 果 要 榨 出 BCD 数 日 ， 也 是 用 位 扯 SFDDA 
上 的 程式 。 

要 输出 大 认 一 位 元 租 的 数目 ( BCD 或 16 进位 ) ， 先 把 
高 隘 位 元 组 载 入 时 积 器 ， 然 后 JSR HEXOUT ， 如 此 反 狼 地 
执行 直到 所 有 位 元 组 都 被 虑 理 沁 了 需 止 。 


IOIIOIII 
IOGOIL 
IIOOIII 
IIOHEHITIII 
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售 激 明 起 兄 ， 再 把 尧 营 程式 中 的 PRBYTE 程 式 列 出 如 下 


PRBYTE PHA ;SAVE ACC FOR USE LATER ON 
LSR ;SHIRFT H.0，NIBBLE 
LSR ;DOWN TO THE L.0，NIBBLE 
LSR ;CLEARING THE H.0.NIBBLE 
LSR 
JSR PRHEXZ ;PRINT L.0.， NIBBLE AS A DIGIT 
PLA ;GET ORIGINAL VALUE BACK 

PRHEX AND 站 SF JWMASK H.0.、NIBBLE 

PRHEXZ 0RA #SB0O ;CONVERT T0 ASCII 
CMP 间 和 BA ;IF IT IS A DIGIT FINE，OTHER 一 
BLT PRTIT ;WISE IT MUST BE CONVERTED TO A 
ADC #S6 ,LETTER IN THE RANGE 人 一己 


PRTIT 。” JMP COUT 
COUT EQU SFDED 
END 
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程式 中 需要 用 CMP #S$BA 指令 ， 因 坑 在 ASCIL 字 元 集 
合 中 ”A ”不 是 紧 接 在 ”9 ”之 人 后。 讼 然 BLT 和 BCC 是 相 
等 的 ， 所 以 当 磁 到 ADC #$6 时 ， 一 定 会 设 定 进 位 旗 标 。 我 
们 把 7 加 到 黑 积 器 中 。 $BA 加 $7 得 $C1， 即 坊 A 的 ASCI 


码 ! 


十 进位 值 的 位 元 组 过 出 : 
COUTPUTTING BYTE DATA AS A DECINMAL 
VALUE ) 
对 和 胸 人 员 来 流 ，165 浊 位 数目 很 容易 了 解 ， 但 对 其 他 
人 则 尖 是 使 用 10 进位 数 日 较 好 。 驭 督 程式 中 没有 办 出 十 进位 
数 ( 除了 BCD ) 的 程式 ， 我 们 必须 自己 设计 。 过 和 节 中 先 计 
沦 暂 出 在 0 到 255 之 天 的 一 位 无 租 不 带 符号 整数 的 方法 。 
方法 很 简单 。 先 把 二 进位 数 和 100 比较 ， 若 较 大 或 等 区 
100， 则 茂 去 100， 交 到 值 小 钛 100 壤 止 。 每 作 一 次 减法 之 


ER 
妆 


2 -< 一 - -一 
SoopTIME TEATER 后 [2 


“covERTING BiNagY TO DECIMAL 
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后 ， 则 把 某 位 贰 的 值 加 1 ， 因 此 当 数 目 小 於 100 时 ， 其 百 位 
上 的 数字 会 存在 此 位 跨 上 ， 然 后 把 值 答 出 到 莹 幕 。 重 攻 上 面 
步 虹 ， 但 现在 每 次 减 10， 且 与 10 作 上 比较 ， 作 完 之 后 再 埠 出 
到 生 幕 。 现 在 剩 下 的 值 小 於 10 ， 所 以 可 直接 入 出 ! 

除 此 之 外 ， 谷 需要 一 族 标 来 进 兄 印 出 左边 的 ”0 ”。 先 
把 某 位 帝 的 值 设 坟 正 数 。 在 输出 数字 之 前 ， 先 检查 此 族 栋 大 
是 否 可 输出 ”0 ”。 程 式 如 下 : 


PRTBYT PHA ;SAVE REGISTERS 
TXA 
PHA 
LDX #S2 JMAX OF 3 DIGITS (0-255) 
STX LEADO ;INIT LEADO TO NON-NEG VALUE 
PRTB) LDA 北 "0" ;INITIALIZE DIGIT COUNTER 
STA DIGIT 
PRTB2 SEC 
LDA VALUE JIGET VALUE TO BE OUTPUT 
SBC TBL10 ,X ;COMPARE 凡 ITH POWERS OF 10 
BLT PRTBS ;IF LESS THAN，0UTPUT DIGIT 
STA VALUE ;DECREMENT VALUE 
INC DIGIT ;INCREMENT DIGIT COUOTER 
JMP PRTB2 ;AND TRY AGAIN 
PRTB3 LDA DIGIT ;GET CHARACTER T0 QUTPUT 
CPX #S$0 ;CHECK TO SEE JP THE LAST DIGIT 
BEQ PRTB5 ,TIS BEING 0UTPUT 
CNP 于"0" TEST FOR LEADING ZEROS 
BEQ PRTB4 
STA LEADO :FORCE LEADO NEG IF NON-ZERO 
PRTB4 BIT LEADO ;IF ALL LEBADING ZEROS，DON'T 
BPL PRTB6 ;OUTPUT THIS ONE 
PRTB5 JSR COUT ;OUTPUT DIGIT 
PRTB6 DEX ;MOVE TO NEXT DIGIT 
BPL PRTB1 ;QUIT IF THREE DIGITS HAVE 
PLA :BEEN HANDLED 
了 TAX 
PLA 
RTS 
TBL10 BYT !1 
BYT !10 
BYT !100 


CouT EQU SFDED 


DICIT EPZ LEADO +S1 
VALUE EPZ DIGIT+S$1 
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使 用 过 程式 时 ， 把 要 术 出 的 值 载 入 位 贰 VALUE 上 ， 然 

后 执行 JSR PRTBYT 。 相 对 於 VALUE 位 置 上 值 的 十 进 
位 数目 会 积 出 到 莹 幕 上 。 ( 或 其 他 装置 上 ) 


T16 位 元 不 带 符号 整数 的 过 出 
COUTPUTTNG 16-BIT UNSIGNED INTEGERS ) 


用 二 位 元 组 则 可 表示 在 0 到 65535 之 问 的 不 带 符号 值 
力 出 运 和 范 轿 的 值 很 简单 ， 只 要 把 前 一 个 程式 扩充 到 可 测试 
1000 到 10000 范 圈 的 值 即 可 。 程 式 如 下 : 


PRTINT “PHA ;SAVE REGISTERS 
TXA 
PHA 
LDX 才 $4 ;OUTPUT UP T0 5 DIGITS 
STX LRADO ;INIT LEADO TO NON-NEC 
PRTI1L LDA 地 "0" IINIT DIGIT COUNTER 
STA DIGIT 
PRTI2 ”SEC ;BEGIN SUBTRACTION PROCESS 
LDA VALUE 
SBC TiOL,X ;SUBTRACT LOW ORDER BYTE 
PHA ) AND SAVE 
LDA VALUE+S1 ;GET H.0 BYTE 
SBC TIOH ,X ;AND SUBTRACT H.0O TBL OF 10 
8LT PRTI3S ,IF LESS THAN，BRANCH 
STA VALUE+S1 ;IF NOT LESS THAN，SAVE IN 
PLA VALUE 
STA VALUE 
INC DIGIT ;INCREMNENT DIGIT COUNTER 
JMP PRTI2 
PRTIS PLA ;FIX THE STACXK 
LDA DIGIT :GET CHARACTER TO OUUPUT 
CPX #S0 ;LAST DIGIT TO OUTPUT? 
BEQ PRTI5 ;IF SCO，0UTPUT REGARDLESS 
CMP 名 "0” ;AZERO? 
BEQ PRTI4 ;IF SO，SEE IF A LEADING ZERO 
STA LEAD0 ;FORCE LEADO TO NEG . 
PRTI4 ”BIT LEADO :SEE IF NON-ZERO VALUES 0UTPUT 
BPL PRTI6 ;YET 
PRTI5 ”JSR CO0UT 
PRTI6 。 DEX ;THROUGH YET? 
BPL PRTI1 
PLA 
TAX 
PLA 
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YLOL BYT !1 
BYT 1!110 
BYT !100 
BYT 11000 
FA 
TILOH HBY :1 
HBY !10 
HBY !100 
HBY !1000 
HBY (10000 
COUT EQU SFDED 
LEADO EPZ $0 
DIGIT EPZ LEADO+$1 


VALUE EPZ DIGIT+S$1 
END 


用 过 程式 时 ， 把 要 梧 出 的 值 载 入 位 蔷 VALUE 和 VALUE 
+ $I1 上 ， 然 后 JSR PRTINT ， 革 天 程式 替 你 完成 其 余 的 工 
作 。 过 程式 相当 普通 ， 而 且 也 可 扩充 到 输出 多 於 二 位 元 组 的 
数目 。 只 要 在 标示 PRTI2 和 PRTI3 之 间 多 作 一 次 减法 来 
处 理 最 高 障 位 元 组 就 可 以 了 ， 同 时 用 另 一 个 位 元 组 表 届 定 所 
要 输出 资料 的 最 高 位 元 组 的 值 。 最 后 修改 LDX 井 $4 成 LDX 
#$n， 其 中 集 莹 出 数目 的 位 数 减 1。 除 此 之 外 ,运程 式 可 
滴 用 葵 任 何 长 度 的 整数 。 


带 符号 16 位 元 整数 的 圈 出 
COUTPUTTING SIGNED 16-BIT /INTEGERS ) 


要 输出 2 的 祖 数 的 带 符 号 值 非常 简单 。 先 检查 它 的 高 障 
位 元 ， 若 凯 0， 则 跳 到 程式 PRINT (上面 提 遇 的 ) ， 若 志 
1 则 输出 一 个 ”一 ”， 取 值 的 2 的 定数 ， 然 后 路 到 程式 
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PRINT 。 程 式 如 下 : 


PRTSGN BIT VALUE+S1 ITEST SIGN BIT 


BPL PRTINT ;IF POSITIVE，G0 他 PRTINT 
PHA ;SAVE ACC 

LDA 闽 " 一 ;OUTPUT A "-” 

JSR COUT 

SEC :TAKE TWO'S COMPLIMENT OF 
LDA *#S0 :VALUE . 

SBC VALUE 

STA VALUE 

LDA #S0 


SBC VALUE+ 条 1 
STA VALUEBS1 
PLA 
PRTINT “” 一 : INSERT PRTINT ROUTINE HERE . 


过 出 整数 的 一 种 简单 方法 
(CAN EASY METHOD OF OUTPUTTING INTEGERS ) 


前 面 提 过 的 十 进位 办 出 程式 都 很 好 用 ， 但 都 需要 使 用 相 
当 多 的 码 。 在 JSR 执行 之 前 ， 要 先 把 输出 值 载 和 人 位置 
VALUE 和 VALUE + $1 上 。 所 以 纺 共 需要 8 到 10 个 位 元 
租 和 四 行 指令 。 下 面 的 程式 可 在 J SR 陈述 之 后 让 接 指明 壹 
出 资料 的 位 置 ， 所 以 只 需 多 一 行 和 二 位 元 粗 码 即 可 ， 就 跟 使 
用 PRTINT 工 命 今 一 榜 的 方便 。 程 式 执行 的 方式 如 下 : 
仙 返回 位 址 从 堆 登 中 耻 纱 出 ， 然 后 存在 VALUE 上 。 
(2) VALUE 的 值 加 2 ， 再 奈 人 堆 登 中 。 修 改 了 运 回 位 址 
以 便当 跳 回 时 6502 会 回 到 在 2 位 元 租 的 位 址 之 后 的 
人口 点 。 
(3) VALUE 的 值 减 1 ， 现 在 它 指 到 在 JSR 指令 之 后 的 
二 位 元 组 位 址 。 
4 把 ( VALUE ) 和 ( VALUE ) +$1 所 指 的 二 位 元 租 
的 值 载 入 VALUE 中 。 
(5) VALUE 所 指 的 资料 再 载 入 VALUE 中 。 
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(6) 呼 咱 PRTINT 或 PRTSGN 程 式 来 输出 数 晶 。 


整个 程式 如 下 : 
PINT STA ASAVE ;SAVE ACC 

STY YSAVE JSAVE Y REGISTER 

PLA ;GET RETURN ADDRESS 

STA VALUE ， 

PLA 

STA VALUE+S 和 1 

JSR INCV ;INCREMNENT VALUE BY TWO 

JSR INCV 

LDA VALUE+S 和 1 :PUSH RETURN ADDRESS 

PHA 

LDA VALUE 

PHA 

JSR DECV :让 AKE VALUE POINT TO DATA 

JSR LVIV ;GET DATA POINTED AT BY 
;DATA FOLLOWING JSR 

LDA ASAVE ;RESTORE ACC 

LDY YSAVE ;RESTORE Y RECISTER 

JMP PRTINT . ;CHANGE TO PRTSGN IF SIGNED 

:OUTPUT IS DESIRED 
LVIYV : 
JSR LAIA 
JSR LAIA 


LAIA LDY *#S0 
LDA (VALUE ) ,YY JIGET L.0.、BYTE 
PHA 
INY 
LDA (VALUE) ,Y )GET H.0. BYTE 
STA VALUE+ 条 1 :AND REPLACE VALUE 
PLA 
STA VALUE 
RTS 
ASAVE ”EPZ $4 ;1ACC SAVE AREA 
YSAVE ”EPZ ASAVE+ 和 1 ;JIY REGLISAVE AREA 
END 


数值 输入 〈 NUNERIC /INPUT ) 


16 进 位 和 BCD (HEXADECINMAL andg BCD ) 


数值 迷 入 和 数值 核 出 一 样 的 重要 。 过 和 节 中 我 们 要 讨论 多 
数值 办 和 的 方法 。 
BCD 办 入 是 目前 最 容易 作 的 ， 只 需 作 一 些 置 幕 和 移动 
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的 动作 即 可 。 BCD 稼 入 的 方法 如 下 : 


贞 设 定 某 位 冒 ( VALUE 
探 用 2 位 元 和 组 的 输入 
元 和 组 的 输入 。 


) 的 初 值 需 0， 下 面 例 子 都 是 
， 但 可 扩充 到 更 多 ( 或 更 少 ) 位 


(2) 假 设 所 有 迷 入 都 存在 第 2 页 ( 因此 可 与 程式 GETLN 
相通 ) ， 且 站 要 存 器 会 指 到 要 输入 的 第 一 个 字 元 。 
(3) BCD 字 串 的 结束 破 看 成 第 一 个 碰 到 的 非 十 进位 数字 。 


(4) 菩 和 每 一 个 数字 ， 


然后 用 4 个 ASL 


彰 分 把 高 际 尼 波 


( 值 永 束 志 $B ) 移出 去 。 所 以 原来 数目 的 低 阶 尼 波 
就 放 在 累积 器 的 高 障 尼 波 上 。 
人 5) 用 ROL 指令 把 值 移 到 VALUE 。 可 用 下 面 的 程式 : 


) TSTDEC: TEST THE CHARACTER IN THE ACCUMULATOR . 
; IF A VALID DECIMAL DIGIT，THEN THIS ROUTINE RETURNS 


; WITH THE CARRY FLAG SET . 


IF THE CHARACTER IN TH 


; ACCUMULATOR IS NOT A DECINAL DIGIT，THEN THIS ROUTINE 


; RETURNS WITH THRE CARRY 


TSTDEC  CMP 站"0” 
BLT NOTDEC 
CMP 亲 "9" + 和 1 
BCGE NOTDEC 
SEC 
RTS 
NOTDEC “CLC 
RTS 


: SHFTIN: SHIFTS THE L.0. 
) INTO "VALUE" 


SHRFTIN ASL 
ASL 
ASL 
ASL 


JSR SHFT2 
JSR SHFT1 
ASL 

ROL VALUE 
ROL VALUE+ 和 1】 
RTS 


SHFT2 
SHFT1 


FLAG CLEAR . 


;BRACKSET TEST FOR A DIGIT 


:TIS IT GREATER THAN NINE? 


;IT JIS A DECINAL DIGIT 
;SO SET THE CARRY AND RETURN 


;NON~DIGIT WAS FOUND 


NIBBLE OF THE ACCUMULATOR 


;MOVE LOW ORDER NIBBLE 
;INTO HIGH ORDER NIBBLE 
;OF THE ACCUMULATOR 


;SHIFT ACC INTO VALUE 
:INOTE: FOUR SHIPFTS ARE 


; PERFPORMED HERE: 
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SHFTIN 的 储 要 仔细 地 看 肖 。 你 可 用 笔 来 妃 踪 从 JSP 
SHFT2 指令 开始 的 鸽 ， 以 确定 确 贷 作 了 4 次 的 移动 动作 。 
利用 过 二 个 程式 ，BCD 的 壤 人 就 氏 成 很 简单 了 ， 如 下 : 


;BCDIN: CONVERTS ASCII STRING IN PAGE TWO {POINTED 
,AT BY THE Y REGISTER) INTO A BCD VALUE. ALL DIGITS 
;ARE CONVERTED UNTIL A NON-DIGIT IS ENCOUNTERED . 


BCDIN : 


LDA #S30 :INITIALIZE VALUE TO ZERO 
STA_ VALUE 
STA VALUE+S1 

BCDLP LDA PAG2 ,Y ;GET NEXT_ CHARACTER 
JSR TSTDEC ;TIS IT A DECIMNAL DIGIT? 
BCC BCDONE :ITIP NOT，QUIT 
JSR _SHFTIN :IF IT TIS，SHIFT INTO_ VALUS 
INY :INDEX TO NEXT CHARACTER 
BNE BCDLP .AND REPEAT 

BCDONE 。 RTS 

PAG2 FEqu $200 ;GETLN INPUT BUFFER 

VALUE 。 EPZ $2 
END 


下 个 程式 坊 在 程式 中 利用 BCD 过 入 程式 的 例子 。 


BCDTST JSR PRINT ;PRINT ROUTINE (SEE LAST CH) 
ASC "ENTER A NUMBER :”" 
HEX 00 


JSR GETLN1 ;GET A LINE OF TEXT (NO. PROMPT) 
LDY #S0 

JSR BCDIN 

JSR PRINT 

ASC "YOU ENTERED:" 

HEX 00 ， 


LDA VALUE + 和 1 
JSR HEXOUT 
LDA VALU 忆 
JSR HEXOUT 


GETLN1 “EQU SFD6F 
HEXOUT ”EQU SFDDA 
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壹 入 16 进位 数目 的 方法 也 类 似 ， 只 是 用 ”TSTHEX ?” 
来 替代 ”TSTDEC ”测试 累积 器 中 的 字 是 不 是 有 效 的 16 进 
位 数 TSTHEX 不 仅 测 试 有 效 的 16 进位 数 ， 同 时 也 把 字母 “ 
A>” 到 "”F ”转变 成 16 进位 值 $BA 到 $BF， 以 使 16 进位 
值 成 念 速 标的 数值 。 


CMP 韶 "D" :BRACKET TEST FOR DECIMAL D 
BLT NOTHEX 
CMP 间 "9"+ 备 1 
BLT ISHEX 
CMP 各" 人” ;BRACKET TEST FOR "A" tt 
BLT NOTHEX 
CMP 半 "G? 
BGE NOTHEX ;SANME AS BCS (SEE NEXT INSTR) 
SBC 半 S6 :CONVERT FROM S$CL TO SBA ... 
ISHEX 。 SEC ;SIGNAL VALID HEX DIGIT 
RTS 
NOTHEX  CLC ;SIGNAL INVALID HEX DIGIT 
RTS 


要 输入 16 进位 数目 就 在 BCDIN 程式 中 用 过 程式 来 代替 
TSTDEC ， 且 用 JSR TSTDEC 来 代替 JSR TSTHEX 。 
当然 要 改 一 下 程式 的 名 称 ， 使 其 更 有 总 义 。 


不 带 符号 十 进位 的 才 入 
CUNSIGNED DECIMAL INPUT ) 


十 进位 的 输入 只 比 BCD 或 16 进位 数 鼻 的 考 入 和 人 微 困 冯 


一 点 。 方 法 如 下 : 
(输入 一 字 元 且 测 试 是 否 有 效 ( 也 就 是 襄 是 否 在 0 一 9 
之 间 )。 


人 把 高 阶 位 元 组 拿 掉 ， 改 成 需 数 字 的 数 日 去 示 法 。 
(3) 将 16 位 元 位 置 的 值 乘 以 10 再 加 上 (2 中 所 得 的 数 宁 。 
党 所 有 的 数字 都 移入 之 后 。 那 两 个 位 置 上 所 在 的 但 就 


182 APPELE 租 合 锋 车 


UnseER 55， TOU YE JUST 
aecome “Oo e0 
Tuau TIMC 0ooe 10 
LOcaTiOn 各 5FFF. 


“DECIMAL 1NPUT 


第 1 ，2 步 艰 和 BCD 输入 的 方式 一 样 ， 第 3 步 卫 可 用 
下 草 要 讨论 的 乘法 来 作 ， 但 用 较 特定 的 乘法 程式 会 更 快 且 硒 
会 更 少 。 下 列 程式 把 位 置 VALUE 和 VALUE+$1 的 值 乘 
10 


MULi00 
PHP 
PHA 
ASL VALUE 、)JNMULTIPLY VALUE BY 2 
ROL VALUE +S1 
LDA VALUE+S1 ;SAVE A COPY OF VALUE 
PHA JIMULTIPLIED BY 2 
LDA VALUE 
ASL VALUE INOW MULTIPLY VALUE BY 8 
ROL VALUE+S$1 JSINCE VALUE HAS ALREADY 
ASL VALUE ;BEPEN MULTIPLIED BY 2 
ROL VALUE+ 和 1 ;A SINPLE KMULTIPLY 8Y 4 GIVES 
CLC 
ADC VALUE ;ADD IN 2xVALUE TO 8xVALUE 
STA VALUE JITO 0OBTAIN 10xVALUE 
PLA 


ADC VALUE+ 箱 】 
STA VALUE+ 上 和 1 
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每 次 呼叫 过 个 程式 就 合 把 位 置 VALUE 的 值 乘 以 10 ， 
而 不 影响 所 有 的 要 存 器 。 
最 彼 的 步 上 ( 把 数字 加 到 16 位 元 数目 上 ) 就 很 简 埋 了 
! 整个 十 进位 输入 的 程式 如 下 : 
”; DECIMAL INPUT KOUTINE 
NOTE:， THIS ROUTINE ASSUMES THAT GETLN HAS BEEN 
: CALLED AND THAT THE X-REGISTER POINTS TO 
THE FIRST VALID DECIMAL DIGIT IN PAGE 2. 


UPON EXIT，THE X-REGISTER POINTS TO THE 
FIRST NON-DIGIT ENCOUNRTERED . 


， 
上 
， 
站 


DECINP : 


PHP ,SAVE STATUS 
PHA ;AND ACC 
LDA 儿 $0 ;INITIALIZR VALUE 
STA VALUE ;TO ZERO 本 
STA VALUE +S1 
DECLP ” LDA INPUT ,X ;GET THE NEXT DIGIT 
JSR TSTDEC ;IS IT REALLY A DIGIT? 
BCC ALDONE ;IF NOT，QUIT 
AND 交 和 有 ;OTHERWISE CONVERT T0 A NUMBER 
JSR MULT10 ， :MULTIPLY VALUE BY 10 
CLC 
ADC VALUE ,AND ADD IN CURRENT DIGIT 
STA VALUE 
BCC DECLP ,IF NOT CARRY，LOOP BACK 
INC VALUE + 和 1 ;JR A CARRY EXISTS，ADD ONE 
JMP DECLP ,TO VALUE+S1 AND LOOP BACK 
ALDONE “ PLA ,RESTORE RECOISTERS 
PLP 
RTS 


TSTDEC: TEST ACC TO SEE IR IT IS A VALID DECIMAL 
DIGIT. IF SO0，THE CARRY FLAG IS SET . 
OTHERWISE THEB CARRY FLAG IS CLEAR. 


0 
他 


TDEC : 
CMP 章 "07 
BLT NOTDEC 
CMP 才 "9" + 多 1 
BGE NOTDEC 
SEC 
RTS 


NOTDEC “CLC 
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D 山 


RTS 


; MULT 100 MULTIPLIES VALUE BY TEN 
; (SEE ABOVE) 


MULT100 
PHP 
PHA 
ASL VALUE 
ROL VALUE+S$1 
LDA VALUE + 和 1 
PHA 
LDA VALUE 
ASL VALUE 
ROL VALUE + 妥 】 
ASL VALUE 
ROL VALUE+ 和 1 
CLC 
ADC VALUE 
STA VALUE 
ADC VALUE + 和 1 
STA VALUE + 和 1 
PLA 
PLP 
RTS 


; THAT'S ALL FOLKS. . . 


得 程式 有 末 个 缺点 。 第 一 ， 它 泪 没 有 测试 淮 位 的 情况 。 
第 二 ， 碰 到 第 一 个 非 数 字 的 字 元 就 立刻 停止 ， 也 就 是 襄 雪 的 
资料 不 会 靶 查 必 。 最 后 若 第 一 个 磋 到 的 字 不 是 十 进位 数 则 程 
式 立 列 停 止 且 适 回 雳 值 。 

过 三 个 问题 都 可 以 解决 。 在 MULT10 程式 中 ， 每 次 作 完 
ROL 指 今 之 后 和 在 DECINP 程式 中 每 次 作 完 加 法 之 后 就 测 
试 进 位 族 标 看 是 否 储 1， 如 此 就 可 测试 洽 位 了 。 

第 二 个 问题 会 使 得 不 合法 的 资料 不 破 查 锅 出 来 。 通 常数 
值 的 输入 可 用 空白 ， returm 或 ，( 或 其 他 任何 特殊 符号 ) 来 
作 结 束 ， 若 不 是 碰 到 副 些 特殊 符号 中 的 某 一 个 字 就 表示 发 生 
输入 错 避 * 因此 运 问题 的 解决 方法 是 检查 第 一 个 非 数字 字 元 
， 看 是 否 储 合法 的 界限 字 ( delimiters )。 
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最 后 一 个 问题 ( 无 效 的 第 一 个 字 ) 是 第 二 个 半 题 的 撤 充 
。 解 决 方法 很 简单 : 首先 删 去 所 有 并 头 的 空白 ( 因此 数目 中 
允许 有 开头 的 空白 ) 。 其 次 测 起 第 一 个 不 是 空白 的 字 ， 看 是 
和 否 垮 有效 的 十 进位 数字 ， 若 不 是 则 报告 错 屎 。 下 列 程式 即 考 
虑 了 示 些 问题 ， 同 时 或 多 或 少 模 据 了 APPIE 整数 BASIC 中 
的 整数 办 入 : 


DECINP : 
PHP 
PHA 
DOIT : 
LDA 举 S0 ;INIT VALUE 
STA VALUE 
STA VALUER+S$1 
JSR BLKDEL :DELETE LEADING BLANKS 
JSR TSTDEC ;IS FIRST NON-BLANK A DIGIT? 
BCC BADDIG ;IF NOT，INFORM THE USER 
DECLP 。 LDA INPUT ,X ;GET NEXT {OR FIRST) DIGIT 
INX ;MOVE TO0 NEXT CHARACTER 
JSR TSTDEC ITIS IT A DIGIT? 
BCC ALDONE ;IF NOT，QUIT 
AND 半 S 己 ;CONVERT TO A NUMBER 
JSR MULT10 MULTIPLY VALUE BY 10 
BVS OVRRLW ;IF OVERFLOW，INFORM USER 
CLC 
ADC VALUE ;ADD CURRENT DIGIT 
STA VALUE ;TO VALUE 
BCC DECLP 
INC VALUE + 多 1 ;IF CARRY，INCREMENT VALUE + 
BNE DECLP ;IF NO OVERFLO，LOOP BACK 
JKNP OVRFL 几 ;IF OVRFLOW，INFORNM USER 
ALDONE CNMNP #" ;TEST. FOR VALID DIGIT 
BEQ QUIT ;DELIMITERS 
CR P 举 办 
BEQ QUIT 
CMP #S8D :RETURN JIS VALID 
BEQ QUIT 
JSR PRINT ; PRINT ROUTINE FROM A PREVIOUS 
HEX 8D ;CHAPTER 
ASC "RETYPE NUMBER1 
HEX 8D00 
JSR GETLN ;READ A LINE OF TEXT 
LDX #S0 


JNMF DOIT 
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OVRFLNW JSR PRINT 
HEX 8D 
ASC ">65535" 
HEX 8D00 
JSR GETLN ;GET A NEW LINE OF TEXT 
LDX #S$0 
JMP DOIT 


了? 


QUIT : 
PLA 
PLP 
RTS 


; BLANK DELETION ROUTINE 


BLKDEL  LDA INPUT , 久 
CMP 涝 由 外 
BNE BLKD) 
TNX 
BNE BLKDEL 


BLKD1 RTS 


; NULTIPLY BY 10 ROUTINE 
MULT10 PHA ;CAN'T SAVE CARRY，V IS OVRFLR 


ASL VALUE 
ROL VALUBR+S$1 
BCS MOVRFL 
LDA VALUE+S$1 


LDA VALUE 
ASL VALUE 
ROL VALUE+S1 


BCS MOVRFL 
ASL VALUE 
ROL VALUE+S$1 
BCS NMOVRFL 


ADC VALUE 
STA VALUE 


ADC VALUE+S 和 1 
STA VALUE+ 和 1 


zcSs MOVRFL 
PLA 
BIT NOVRFL ;SET V FLAG TO ZERO 
RTS 
MOVRFL “BIT OVERFL :SET V FLAG TO ONE 
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NOVRFL HEX 00 
OVERFL HEX 40 


: TSTDEC: TESTS CHARACTER IN ACC TO SEE IF IT IS 

: A VALID DECIMAL DIGIT 

CARRY IS SET IF IT IS 

TSTOEC: 
CMP #n"0v 
BLT NOTDEC 
CMP #"9"+ 和 1 
BGE NOTDEC 
SEC 
RTS 

NOTDEC  CLC 
RTS 

INPUT 。Equ $200 

VALUE ”REPP S0 

CETLN ”8QU SFD67 


: NOTE: THE PRINT ROUTINE PROVIDEDb IN THE PREVIOUS 
， CHAPTER NUST BE INCLUDED HERE 


用 过 个 程式 ， 先 呼叫 GETLN 来 读 入 一 行 资料 ， 后 但 从 
要 存 器 指 到 要 输入 的 十 进位 数字 的 位 址 ， 然后 JSR DECINP 
。 和 从 DECINP 跳 回 时 ， 所 要 的 数目 ( 二 进位 型 式 ) 就 存在 位 
导 VALUE 和 VALUE+$1 上 。 或 许 你 希 肇 做 某 些 改 淮 的 工作 
如 : 
d 使 它 能 处理 三 ， 四 ( 或 更 多 ) 位 元 组 的 将 数 。 
(2) 能 在 JSR DECINP 之 后 直 按 指明 位 址 ， 恋 输入 作料 

的 值 存在 设 位 址 上 。 


带 符号 十 进位 的 较 入 
(SIGNED DECIMAL /INPUT ) 
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忽然 有 了 不 带 符号 十 进位 栓 入 的 程式 ， 带 符号 十 进位 的 
过 入 就 饼 成 很 容易 了 。 只 要 检查 第 一 个 非 空 白字 元 是 否 需 负 
号 即 可 。 若 是 负 号 ， 则 加 到 下 面 字 元 ， 然 后 呼 趾 不 带 符号 十 
进位 壕 入 的 程式 。 当 从 程式 跳 回 上 时， 检查 位 苇 VALUE+$1 
的 位 元 7， 若 需 1 则 表示 发 生 洽 位 ; 否则 若 坑 负数 ， 则 到位 
置 VALUE 和 VALUE+$1 上 的 值 的 2 的 定数 值 ， 若 坊 正 数 则 
值 不 树 。 程 式 如 下 : 

SIGNED DECIMAL INPUT 


SNGDEC : 
PHP 
PHA 


DOSGN : 
JSR BLKDEL 
CMP 奉 中 四 
BNE SGN1 
LDA #S1 ;SET A FLAG SIGNIFYING 
STA SIGN ;A MINUS VALUE 


JMP SGN2 


SGN1  。 LDA #YS0 :SET A FLAG SIGNLFYING 
STA SIGN ,A POSITIVE NUMBER 


SGN2 JSR DECINP ;GET THE UNSIGNED NUMBER 
LDA VALUE +S$) ;TEST FOR OVERFLOW 
BMI SGNOVR 
LDA SIGN ;TEST TO SEE IF 2'S COMP 
BFL DONE JIS REQUIRED 
SEC ;PERFORM 2'S COMP 
LDA *#SO ;OPERATION 
SBC VALUE 
STA VALUE 
LDA #S0O 
SBC VALUE +$1 


DONE 。 PLA 


SGNOVR ”JSR PRINT 


ASC ">352767 “REENTER+ 
HEX 8DO00 

JSR GETLN 

LDX #S0 

JMP DOSGN 


SIGN EPZ VALUE+S2 
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过 完成 了 正常 的 类 似 BASIC 中 的 数值 IO 的 过 算 。 违 

简 列 出 的 程式 吕 是 东 本 的 程式 ， 将 其 修改 就 可 作 多 位 元 钥 的 
略 入 ， 旬 位 元 组 输入 等 1/0 怀 算 。 其 依 的 数值 以 入 ， 如 二 进 
位 或 八 进 位 ， 可 由 修改 MULT10 和 TSTDEC 程式 米 完 成 。 


事 侦 上 ， 兢 设 更 寡 成 一 个 可 以 入 任何 底数 的 资料 ， 但 首先 下 
看 下 一 重 的 乘法 程式 。 
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第 十 三 录 
乘法 和 除法 


概 论 (GENERAL ) 


前 面 提 过 6502 兹 没有 乘法 ， 和 除法 的 指令 。 当 然 若 有 
乘除 法 的 指 今 就 很 方便 ， 记 以 我 们 要 用 副 程 式 来 提供 乘除 的 
能 力 。 


乘法 ( MULTIPLICATION ) 


在 二 进位 中 ， 乘 法 非常 的 简单 。 事 实 上 ， 是 和 十 进位 的 
乘法 类 似 。 看 看 下 面 十 淮 位 乘法 的 例子 : 


10110 
六 和 2 


把 (0x1loll0 )+(10x10110 )+( 100x10110 
) 就 是 辣 果 。 乘 以 10 龙 其 简单 : 只 要 把 数 上 且 往 左 移 一 位 即 
可 。 因 此 上 式 的 结果 念 1112100“。 

二 个 二 淮 位 数 的 乘法 也 是 同样 的 道理 把 ( 0 x 10110 
)+(:410x1l0llt0 ) 十 (100x10110 ) 就 可 得 到 车 果 。 
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乘 以 2 的 乘 害 时 ， 只 要 用 ASL 或 ROL 指令 来 作 移 位 即 可 。 
上 式 的 答案 篇 10000100。 

pn 位 元 乘 以 吓 位 元 的 精 果 最 多 需 ( m+ n ) 位 元 。 因 此 
8 位 元 乘 以 8 位 元 会 产生 最 多 16 位 元 的 烙 果 。 同 理 16 位 元 
相 乘 会 产生 最 多 32 位 元 的 结果 。 训 住 过 点 ， 以 便 在 作 乘 法 
时 能 确定 有 足够 的 位 寺 来 存放 结果 。 

下 面 的 乘法 程式 用 了 第 0 页 中 的 六 个 位 置 ， 分 别 来 存 乘 
数 ， 彼 乘 数 和 部 分 结果。 尖 些 位 置 ( 都 是 16 位 元 ) 分 别 标 
示 成 MULPLR 、MULCND 和 PARTIAL 。 作 完 乘 法 之 后 所 
得 灶 果 的 低 障 16 位 元 就 放 在 位 置 MULPLR 和 MULPLR+ 
$1 上 ， 而 高 障 的 16 位 元 则 在 位 置 PARTIAL 和 PARTIAL 
+S$1 上 。 公 式 如 下 : 

( MULPLR, PARTIAL ) =MULPLR x MULCND 

+ PARTIAL 


MA 
TnE 1D'S GQTTIMG 
区 
ee) 
o9 
O 
四 
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注意 到 PARTIAL 的 值 筱 加 到 乘法 的 结果 上 。 过 在 许多 
\ 数学 计算 ， 包 括 扩充 精确 度 的 乘法 时 非常 有 用 。 在 过 里 ， 只 
'， 要 记得 在 呼叫 乘法 程式 之 前 先 把 位 置 ”PARTIAL 和 PARTIAL 
+$1 的 值 届 垮 0 就 可 以 了 ! 
下 面 的 乘法 程式 是 修改 Apple ”监督 程式 位 填 $FB63 
上 的 乘法 程式 所 得 的 结果 。 


: USMUL- UNSIGNED 16-BIT MULTIPLICATION 
: 352 BIT RESULT IS RETURNED IN LOCATIONS 
(MULPLR， PARTIAL ) . 


USMUL : 
PHA 
TYA 
PHA 


USNMULL  LDY #S10 ;SET UP FOR 16-8BIT MULTIPLY 

USMUL2  LDA MULPLR ;TEST L.0. BIT TO SEE -IF SET 
LSR 
BCC USMUL4 


CLC )L.0，BIT SET，ADD NULCND TO 
LDA PARTIAL ;PARTIAL PRODUCT 
ADC MULCND 
STA PARTIAL 
LDA PARTIAL + 和 1 
ADC MULCND + 和 1 
STA PARTIAL + 多 1 
; SHIFT RESULT INTO MULPLR AND GET THE NEXT BIT 
OF THE MULTIPLIER INTO THE LOWI!ORDER 8IT OF 
; MULPLR 


USMUL4 “ROR PARTIAL+ 生 1 
ROR PARTIAL 
ROR MULPLR+S1 
ROR MULPLR 


; SEE IF DONE YET 
DEY 
BNE MUL2 


MULPLR “EPZ $50 
PARTIAL EPZ MULPLR+ 和 2 
MULCND ”EPZ PARTIAL+ 和 2 


194 APPLE 组 合 攻 言 


下 面 仿 使 用 乘法 画 数 的 例子 ; 


) COMPUTE 25 x 66 AND LEAVE RESULT IN 
;) ”RESULT" 


EXMPL: 
LDA #125 ;25 DECIMAL 
STA MULPLR 


LDA /1!25 ;H.0，、BYTE 0F 25 
STA MULPLR+S 多 1 


LDA #S0 ;MUST SET PARTIAL TO0 ZERU 
STA PARTIAL 


JSR USMUL :PERORM THE MULTIPLICATION 
LDA MULPLR ;MOVE PRODUCT TO RESULT 


LDA MULPLR+S$1 
STA RESULT + 多 1 


ETC. . . 

假如 作 16 位 元 x 16 位 元 的 乘法 而 把 千 果 存 在 一 个 16 
位 元 的 位 置 上 ， 则 需 用 PARTIAL  OR ”PARTIAL +$1 
指 今 来 测试 座位 。 假 如 千 果 不 是 0， 则 表示 发 生 涂 位 。 

前 面 提 过 ， 可 用 PARTIAL 来 扩充 过 程式 使 它 可 作 24， 
32,48 或 64 个 位 元 的 乘法 。 二 很 简单 只 要 稍稍 修改 原来 的 
程式 即 可 。 修 改 如 下 : 把 要 相 乘 的 位 元 数目 载 入 立 炎 存 器 ， 
然后 修改 多 重 精确 度 的 ROR 串 列 和 ADC 串 列 使 合乎 你 所 愤 
择 的 精确 度 。 同时 不 要 底 记 要 留 更 多 的 位 置 给 MULCND ， 
MULPLR 和 PARTIAL ! 下 面 需 24 x 24 位 元 的 乘法 : 

; USMUL- UNSIGNED 24-BIT MULTIPLICATION 


48 BIT RESULT IS RETURNED IN LOCATIONS 
{(KULPLR， PARTIAL ) 


USMUL: 


第 十 三 章 ” 乘法 和 除法 195 


USMUL1I  LDY # 和 18 ;SET UP FOR 24-BIT MULTIPLY 
USMUL2 “LDA MULPLR ;TEST L.0， BIT TO SEE IF SET 
LSR 
BCC USMUL4 
CLC 世 .0.， BIT SET，ADD MULCND TO 
LDA PARTIAL ;PARTIAL PRODUCT 
ADC MULCND 


STA PARTIAL 
LDA PARTIAL+S1 
ADC MULCND + 和 1 
STA PARTIAL+ 争 1 
LDA PARTIAL + $2 
ADC MULCND + 和 2 
STA PARTIAL +S2 


; SHIRT RESULT INTO MULPLR AND CET THE NEXT BIT 
) OF THE MULTIPLIER INTO THE LOW ORDRPR BIT OF 
) MULPLR 


USMUL4  ROR PARTIAL+S$2 
ROR PARTIAL +S$1 
ROR PARTIAL 
ROR MULPLR+$2 
ROR MULPLR+S1 
ROR MULPLR 


: SEE IF DONE YET 
DEY 
BNE MUL2 
PLA 
TAY 


PLA 
RTS 


MULPLR EPZ S$50 
PARTIAL EPZ MULPLR+S3 
MULCND EPZ PARTIAL+ 和 3 


访 注 悉 上 面 的 程式 只 作 不 带 符号 的 乘法 而 已 。 若 作 带 符 
急 的 来 法 ， 则 首先 要 看 乘 数 和 被 乘 数 的 符号 是 否 一 样 ， 兹 且 
使 用 一 个 旗 标 来 记录 相同 的 情形 。 然 后 取 乘 数 和 被 乘 数 的 破 
对 值 ， 再 由 不 带 符号 的 乘法 。 最 后 再 来 测试 符号 旅 标 ， 若 旗 
标 麦 示 二 数 的 符号 不 一 样 ， 则 和 结果 应 坑 负 数 。 
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) SIGNED 16-BIT MULTIPLICATION 


SMUL: 


PHA 
TYA 
PHA 
LDA MULCND + 多 1 :TEST SIGN BITS 
XOR MULPLR + 和 多 1 ;TO SEE IF H.0 BITS ARE UNEQU 
AND #S80 
STA SIGN :SAVE SIGN STATUS 
JSR ABS1 ;TAKE ABSOLUTE VALUE OF MULPLR 
JSR ABS2 ;TAKE ABSOLUTE VALUE IOR MULCND 
JSR USMUL - ;UNSIGNED MULTIPLY 
LDA SIGN ;TEST SIGN FLAG 
BPL SMUL1 ;IF NOT SET，RESULT IS CORRECT 
JSR NEGATE ;NEGATE RESULT 
SMUL1I 。 PLA 
了 TAY 
PLA 


RTS 


-ABS1 LDA MULPLR+ 多 1 ;SEE IF NEGATIV 它 
BPL ABS12 


SEC INEGATE MULPLR 
LDA #S0 
”SBC MULPLR 

STA MULPLR 

LDA 4SO 

SBC MULPLR+ 多 1 

STA NULPLR+S 和 1 


ABS12 。 RTS 


ABS2 LDA MULCND + 和 1 ;SEEB IF NEGATIVE 
BPL ABS22 
SEC ;NEGATE MULCND 
LDA #S0 
SBC MULCND 
STA MULCND 
LDA #S0 
S8C MULCND+S 多 1 
STA MULCND+ 和 1 


hABs22 RTS 
跟 不 带 符号 的 乘法 一 样 ， 可 用 指 今 “PARTIAL _OR 
PARTIAL+$1 ”来 测试 座位 。 在 较 早 的 Apple 监督 程式 
中 ， 提 供 了 一 个 带 符号 乘法 的 程式 。 沪 者 应 琢 研 究 一 下 它 的 


乘法 程式 ， 因 需 它 用 的 技巧 和 过 壬 所 用 的 技巧 大 不 相同 。 它 
比较 得 条 北 且 交 懂 ， 但 是 可 以 做 坊 如 何 悦 竹 速度 和 可 攻 人 性 换 


取 更 少 的 程式 码 的 练 必 。 


除法 演算 法 
( DIVISION ALGORITHMNS ) 


跟 乘 法 一 样 ， 二 进位 的 除法 和 一 般 人 们 作 长 除法 时 的 方 
法 类 似 。 首 先 看 除数 的 高 阶 位 元 ， 若 垮 1 再 看 看 从 除 数 是 否 
可 除 ， 则 记 上 凋 数 且 把 破除 数 减 去 目前 的 除数 。 反 恬 过 步 腾 
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直到 作 完 所 有 数字 ( 或 位 元 ) 震 止 。 除 法 的 程式 如 下 ,: 


; UNSIGNED 16-BIT DIVISION 
; COMPUTES (DIVEND ,PARTIAL} / DIVSOR 
; (II.E.，32 BITS DIVIDED BY 16 BITS) 


USDIYV: 


USDIV2 


USDIV3S 


PHA 
TYA 
PHA 
了 TXA 
PHA 


LDY #S10 
ASL DIVEND 
ROL DIVEND+$1 
ROL PARTIAL 
ROL 


LDA PARTIAL 
SBC DIVSOR 
TAX 


LDA PARTIAL+SiI 


SBC DIVSOR + 和 1 
SCC USDPIV3S 


STX PARTIAL 
STA PARTIAL+ 和 多 1 
INC DIVEND 


DEY 
BNE USDIV2 


PARTIAL + 和 1 


;SET UP FOR 16 BITS 


;LEAVE DIVEND MOD DIVSOR 
:IN PARTIAL 


乘法 和 除法 197 


198 APPELE 钥 合 族 言 


站 口 


DIVEND EPZ $50 
PARTIAL EPZ DIVEND+S2 
DIVSOR EPZ PARTIAL+ 和 2 


值得 一 提 的 是 过 个 程式 同时 也 算出 DIVEND MOD 
DIVSOR 的 值 ， 和 结果 存在 位 置 PARTIAL 上 。 若 除数 赁 0 
， 则 .DIVEND 会 构成 $FFFF 。 你 的 程式 可 用 DIVEND 
AND DIVEND+$1 的 指令 然后 比较 千 果 是 否 坊 $FF 来 
测 出 过 问题 。 现 在 还 有 一 个 问题 : $FFFF 除 以 1， 结 果 也 
是 $FFFF 。 解 决 方法 很 简单 ， 只 要 在 呼叫 USDIV 之 前 ， 
先 测试 被 除数 是 否 需 $FFFF 即 可 。 扩 充 除 法 程式 成 可 适用 
於 任何 数目 的 位 元 组 ， 则 把 所 要 的 精确 度 位 元 数 载 入 Y 草 存 
器 中 ， 再 增加 末 个 ROL 指令 ， 蔚 且 在 SBC 指令 上 扩充 其 精 
确 度 即 可 。 
使 用 过 个 程式 时 ， 把 32 位 元 的 除数 载 和 人 位置 DIVEND 
， DIVEND+$1  ， PARTIAL 和 PARTIAL+$1 上 ( 低 
障 位 元 组 在 位 填 2IVEND ， 而 高 障 位 元 和 粗 在 ”PARTIAL 十 
$1 上 )， 再 把 16 位 元 的 除数 载 和 人 DIVSOR 。 接 著 JSR 
USDIV。 若 你 的 被 除数 只 有 16 位 元 ， 则 把 0 存 到 PARTIAL 
和 PARTIAL+81 即 可 。 
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; EXAMPLE: DIVIDE 195 BY 24 AND PUT THE QUOTIENT 
; INTO "RESULT" 
STORE THE MODUL0O 0F8 195/24 IN LOCATION 
"KEODULO" 


EXMNPL : 
LDA #!195 ;DECIMAL 195 
STA DIVEND 
LDA /1195 
STA DIVEND +$1】 
LDA 亲 124 ;DECIMAL 24 
STA DIVSOR 
LDA /124 
STA DIVSOR+S1 
， LDA 站 80 ;PERFORMING A 16 BY 16 DIVISION 

STA PARTIAL 
STA PARTIAL 
JSR USDIV 

”LDA DIVEND 
STA RESULT 
LDA DIVEND+ 和 1 
STA RESULT+S$1 


LDA PARTIAL 
STA MODULO 

LDA PARTIAL+$1 
STA NODULO+ 和 1 


ETC ,，,. 


带 符号 除法 比 不 带 符号 除法 要 麻烦 一 些 。 和 带 符号 乘法 
一 样 ， 得 使 用 一 个 符号 族 标 来 决定 最 后 丙 数 的 符号 。 同 理 也 
是 取 除 数 和 被 除数 的 级 对 值 来 呼叫 不 带 符号 除法 程式 ， 最 后 
若 符号 族 标 需 1， 则 丙 数 取 负 数 ， 和 否则 商 数 取 正 值 。 
着 除数 危 0， 则 丙 数 售 $FFFF“。 用 不 带 符号 除法 的 程 
式 只 有 当 $FFFF 除 以 1 时 才 会 得 $FFFF， 但 用 带 符号 除 
法 的 程式 ， 则 $FFFF 除 以 1， 除 以 $FFFF 都 会 得 $EFF 
( 需 -- 1 的 表示 法 ) ， 除 以 0 的 灶 果 也 是 $FFEFF ， 汪 应 多 
倩 况 会 摘 不 清楚 ， 因 此 在 下 列 的 带 符号 除法 程式 中 ， 用 浴 位 
族 标 来 表示 除数 是 否 锅 0， 若 除数 仿 0， 则 浴 位 族 标 危 1 ， 
耕 则 需 0。 因 此 在 从 除法 程式 中 中 回 时 ， 你 就 可 检查 涂 位 族 
标 而 作 适当 的 措施 。 也 可 用 这 技巧 在 不 带 符号 除法 程式 中 来 
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上 处理 $FFFF 除 以 1 的 情况 。 


; SIGNED 16-BIT DIVISION ROUTINE 
; V FLAG IS RETURNED SET IF ZERO DIVIDE 0CCURS 


; THIS ROUTINE COMPUTES (DIVEND ,PARTIAL)VDIVEND 
; AS WELL AS {DIVEND,FARTIAL) MOD DIVEND 


SDIV : 
PHA 


LDA 
XOR 


AND 
STA 
JSR 
JSR 
JSR 
LDA 
AND 
CKP 
BEQ 
LDA 
8BPL 
JSR 


SDIV1  cLV 
PLA 
RTS 


OVRFLW BIT 
PLA 
RTS 


SETOVR HEX 


“DABS1 。 LDA 
BPL 


DIVNEG : 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 


DIVEND + 和 1 
DIVSOR+S$1 


间 $80 
SIGN 
DABS1 
DABS2 
USDIV 
DIVEND 
DIVEND+S1 
音 和 FF 
OVRRLNW 
SIGN 
SDIV1 
DIVNEG 


SETOVR 


40 


DIVSOR+ 和 多 1 
DABS12 


闪 S0 
DIVSOR 
DIVSOR 

钊 和 0 
DIVSOR+ 和 1 
DIVSOR + 和 1 


;CHECK SIGN BITS 


;ABSOLUTE VALUE 0F DIVSOR 
;ABSOLUTE VALUE 0F DIVEND 
;COMPUTE UNSIGNED DIVISION 
;CHECK FOR ZERO DIVIDZR 


;SIGN IF RESULT MUST BE. 
;NEGATIVE 


;NO ZERO DIVISION 


;SET OVERFLOW FLAG 


;SEE IFR NEGATIVE 


;NEGATE DIVSOR 
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DABS12 ” RTS 


DABS2 ” LDA DIVEND+S1 ;SEE IF NEGATIVS 
BPL DABS22 
SEC JINEGATE DIVEND 
LDA #S$0 
SBC DIVEND 
STA DIVEND 
LDA #S0 
SBC DIVEND+S$1 
STA DIVEND+ 和 1 


DABS22 ”RTS 


本 章 所 列 的 程式 都 可 轻易 地 修改 ， 使 它 适 用 於 特 殊 的 情 
况 。 在 许多 例子 中 浅 其 在 扩充 到 较 16 位 元 更 多 运算 的 时 候 
， 若 用 理 路 会 减少 不 少 码 ， 但 速度 的 因素 他 更 重要 。 
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第 十 四 重 
处理 字 串 的 运算 


字 串 的 蚀 理 (STRING HANDLING) 


在 计算 机 中 有 许多 麦 示 字 串 的 方法 ， 但 不 花 如 何 表示 ， 
字 串 都 有 三 种 特性 : 0) 有 最 大 长 度 ， 即 分 配给 它 的 位 元 粗 数 
。(2) 有 动机 的 执行 时 长 度 ( “run-time" length )， 即 目前 字 
圳 所 用 的 位 元 组 数 。(3) 有 在 记 慑 体 中 的 起 始 位 址 。 
过 里 将 探 用 送 於 LISA 车 构 的 用 法 。 以 后 提 到 的 字 串 都 
是 下 列 三 种 形式 之 一 : 
字 串 由 一 群 从 某 特 定位 置 基 始 的 字 元 粗 成 ， 且 由 某 特 
定 值 ， 如 $00 作坊 千 束 。( 在 前 玖 妹 的 PRINT 程式 
”中 用 过 ) 。 
(2) 字 串 由 一 群 某 已 知 位 芙 因 始 的 字 元 组 成 ， 而 由 一 字 元 
作 需 结束 ， 此 字 元 的 高 借 位 元 和 字 串 的 其 他 字 元 的 高 
障 位 元 相反 。 
(3) 字 串 由 一 长 度 位 元 组 和 一 串 裔 长 度 的 字 元 所 租 成 。 
前 二 种 形式 主要 在 输出 人 时 有 用 。$00 常用 来 作 芝 出 字 
元 的 车 束 符 号 ， 而 $8D 则 用 来 作乱 柱 入 字 元 的 结束 符号 ( 因 
入 在 大 恤 分 情形 ， 都 是 用 ”carriage return ” 作 坑 结束 ) 。 第 
二 种 形式 是 第 一 年 型式 的 特殊 例子 。 在 最 后 一 字 元 的 高 障 位 
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元 作 记 多 ， 所 以 就 不 必 在 后 而 多 加 一 个 位 元 租 了 。 要 注意 ， 
第 二 种 形式 只 能 布 128 个 厅 同 字 元 ， 而 不 像 第 一 种 形式 有 
256 厌 字 元 ， 但 对 和 伍 一 字 中 而 车 都 节省 了 一 个 位 元 租 。LISA 
有 一 个 特殊 的 假 指 今 使 用 过硬 形 式 偿 存 字 捉 ， 过 指 今 蝴 " 
DCI ， 它 把 字 串 存在 记 懂 体 中 ， 靖 且 今 最 后 一 字 的 高 阶 位 
元 与 其 他 字 不 同 。 

第 三 箱 形 式 是 最 常用 的 ， 因 震 它 明 方 便 。 探 用 过 种 形式 
之 和 后， 一 些 有 了 关 字 中 的 两 数 ， 如 申 联 ， 长 度 和 次 字 串 都 炙 成 
很 简单 。 本 革 所 列 的 字 串 不 理 程 式 都 是 探 用 过 种 形式 。 但 由 
於 在 程式 中 也 可 能 有 第 1 ，2 种 形式 的 字 训 ， 所 以 要 有 把 第 
1 种 和 第 2 称 形 式 轴 轰 成 第 三 种 形式 的 圭 炙 程式 。 

把 第 一 征 转 换 成 第 三 箱 时 ， 需 要 有 3 种 资料 。 第 一 坟 第 
一 种 形式 字 中 的 起 始 位 凌 ; 第 二 需 第 三 种 形式 字 训 的 起 始 位 
由 ， 即 转 缀 后 的 字 串 的 存放 位 屏 ; 第 三 垮 第 一 种 形式 字 串 的 
和 结束 符号 。 在 我 们 的 程式 中 ,假设 过 三 种 资料 放 在 位 咱 
TYPET ， TY 卫 卫 3 和 DLMTR 上 。TYPEI1 和 TYPE3 都 是 
16 位 元 的 位 址 ， 每 个 都 在 第 0 页 中 估 二 个 位 元 粗 的 位 恬 。 
而 DLMTR 则 只 估 一 位 元 组 。 在 呼 中 我 们 的 程式 之 前 ， 先 要 
把 过 三 种 资料 设 定好 。 

这 程式 会 从 TYPE1 所 指 到 的 位 响 中 取出 一 个 字 元 ， 然 
后 存在 TYPE3 所 指 的 相对 位 跨 上 ， 党 然 作 了 些小 改 麦 。 因 
念 TYPE3 所 指 的 第 一 个 位 元 租 奈 垮 字 的 长 底 ， 所 以 在 把 
字 元 存 到 指定 位 器 之 前 要 把 TYPE3 所 指 位 让 的 值 加 1 。 最 
后 字 元 都 转移 好 了 之 后 ， 字 趾 的 长 度 要 放 在 第 一 们 位 徽 上 。 
程式 如 下 : 
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) TYP8E1 TO TYPE3S STRING CONVERSIONS 


，， POINTERS TO THE RESPECTIVE DATA AREAS 
; ARE PASSED IN "TYPE1" AND "TYPE27 
; “DLMTR" CONTAINS THE STRING DELIMITER BEING USED 


TYPE1 EPZ $0 
TYPE3 ”EPZ TYPEL+S2 
DLMTR ”EPZ TYP83+S$2 


T1T03S: 

PHP ;SAVE ALL THE REGISTERS 

PHA 

TY 

PHA 

INC TYPES :ADD ONE TO TYPE3 POINTER 

BNE TITO3SA ;SO THAT IT POINTS TO THE FIRST 

INC TYPE3S+$1 ;AVAILABLE CHAR PAST THE LENGTH 
T1TO3A: 

LDY #S$0 ;SET UP INDEX TO ZERO 
TiT038 LDA (TYPELI).Y :FETCH TYPELI CHARACTER 

CMP DLMTR ;IS IT THE DELIMITER? 

BEQ T1LTOSC ;IF SO0，PREPARE TO QUIT 

STA (TYPE3S) ,Y ;OTHERWISE TRANSFER 

INY ;MOVE TO NEXT CHARACTER 

8BNE T1TO038B :DON'T ALLOW STRINGS > 255 

DEY ;IF OVERFLOW 0CCURS ，TRUNCATE 
TlT03C LDA TYPE3  - :DECREMEOT TYPSES POINTER SO 

BNE T1T035D :IT POINTS T0 LENGTH BYTE AGAIN 


DEC TYPE3S+S1 
TLT03D DEC TYPE3 


TYA :ITRANFER LENGTH OF STRING TO A 
LDY #SO ;SET UP INDEX TO0 LENGTH BYTE 
STA (TYPES) .,Y ;STORE LENGTH IN FIRST BYTPE 
PLA ;RESTORPE THE REGISTERS 

TAY 

PLA 

PLP 

RTS 


假如 用 程式 GETLNZ 和 从 Apple 键 性 上 六 人 一 行文 字 ， 
则 可 将 其 转换 成 第 三 征 形 式 的 字 昌 ， 程 式 如 下 : 


LDA #S200 ;INIT TYPE1 TO $200 

STA TYPE1 

LDA /SS2U0 

STA TYPE1+S$1 

LDA #STRING ;PUT ADDRESS OF DESTINATION 


STA TYPES ;STRING INTO “TYPES" 
LDA /STRING 
STA TYPES+ 和 1 


LDA #S8D ;INITILIZE THE DELIMITER 


STA DLNTR ;CHARACTER TO RETURN 
JSR T1T05 ;PERFORN THE CONVERSION 
RTC . 


第 二 种 形式 也 可 以 同样 方式 转换 成 第 三 种 型 式 ， 程 式 如 
下 : 


;TYPE 2 TO TYPE 5 STRING CONVERSION 

;TYPE 2 STRING IS ASSUMED TO BE A STRING WHOSE HIGH 
;ORDER BITS ARE ALL SET EXCEPT FOR THE LAST ARASIER 
;WHOSE HIGH ORDER BIT IS CLEAR 

THIS CAN BE MODIFIED 8Y REPLACING THE “"BPL”" 
;INSTRUCTION WITH A "BMI” IE DESIRED 


TYPE2 ”EPZ 0 
TYPES5 。 EPZ TYPE2+S2 


T27035: 
PHP ;SAVE THE REGISTERS 


INC TYPE3S ;KMOVE PAST THE LENGTH BYTE 
BNE T2T03A 
INC TYPE3S+S1 


T2703A : 

LDY #SO ;INITIALIZE STRING INDCEX 
T2T03B  LDA (TYPE2),Y 

BPL T2703C 

STA (TYPE3S) ,Y 


INY 

BNE T27T03B ;PREVENT OVERRFLO 彤 

DRY ;ITRUCATE TO0 255 CHARS 
T27T035C 0RA #S80 :STORE LAST CHARACTER 

STA {TYPES) ,Y 

INY :ADJUST LENGTH 

BNE T2T03D ;TEST FOR DVRERFLO 儿 


DEREY :ITRUCATE IF > 255 CHARS 
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T2T05D  LDA TYPE3 ;MOVE TYPE3S POINTER BACK 
BNE T2T03D JELENGTH BYTE 
- DEC TYFES+ 凶 1  、 
T2T03E DEC TYPE3S 


PLA ;RESTORE THE REGISTERS 


反方 向 的 转换 ( 从 第 三 种 到 第 一 或 第 一 种 ) 较 少 用 ， 但 
也 很 简单 。 过 留 栓 茂 者 作 和 坊 必 题 。 


宣告 字 串 常数 
(DECLARING LITERAL STRINGS ) 


除了 从 键盘 上 输入 字 昌 之 外 ， 有 时 候 也 要 在 程式 中 设 定 
一 些 字 训 。 LISA 提供 了 一 个 假 指 令 ” STR ”可 玫 你 作 肖 
工作 。 二 指令 输出 一 由 ASCIl 字 元 租 成 的 字 串 ， 且 在 最 前 面 
加 上 其 长 度 。 STR 在 宣告 字 串 常数 时 候 很 有 用 。 在 用 STR 
指 今 宣告 字 串 常数 时 ， 要 记 住 用 伙 引 号 把 字 串 括 起 来 不 用 
单 引 号 ) 。 


字 串 设 定 (STRING ASSIGNMENTS ) 


最 基本 且 有 用 的 字 串 运算 应 坝 是 字 申 届 定 。 最 简单 的 字 
吝 设 定 只 是 把 资料 从 某 一 位 风 移 到 另 一 位 置 而 已 。 假 届 要 把 
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字 串 从 人 位置” STR1L ” 移 到 位 置 ”STR2 ”， 则 程式 如 下 : 


srenGy 

Go TQ JAit， 

De NOT ppss co 

po NOT CorbEcT $2ce/ 


"STRING ASSIGNMENTS7 


LDY STR1 ,GET THE LENGTH BYTE 
LOOP LDA STR1,Y ;TRANSFER STRING 

STA STR2.,Y 

DRY 

BNE LO0P 

LDA STR1 TRANSFER THSE LENGTH OVER 


STA STR2 
你 可 看 出 第 1 位 元 组 到 第 n 位 元 组 的 资料 被 移动 ， 然 后 
STRL1 字 串 的 长 度 存 在 位 置 STR2 上 。 
若 在 程式 中 常 作 字 串 指定 的 动作 ， 则 最 好 是 把 它 写成 副 
程式 ， 在 JSR 之 后 来 指明 二 个 字 串 的 位 址 ， 以 便 多 次 呼叫 
， 如 下 例 : 
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JSR SASIGN :STRING ASSIGNMENT 
ADR DEST ;IDEST = SOURCE 
ADR SOURCE 


过 应 一 来 每 次 设 定 字 串 ， 只 需要 7 个 位 元 组 即 可 。 另 一 
种 特殊 例子 的 写法 如 下 : 


JSR SASGNI ; IMMEDIATE STRING ASSIGNNENT 
ADR DEST 1IADDRESS OF STRING 
STR "HELLO" ;STRING T0 BR ASSIGNED 


过 种 写法 万 许 你 使 用 简单 的 方法 设 定 某 字 串 常数 。 以 上 
二 种 方法 的 程式 留 给 芒 者 作坊 加 题 ， 可 参考 前 兴 章 所 蓝 的 梳 
出 程式 。 


字 串 函数 ( STRING FUNCTIONS ) 


最 基本 的 字 串 画 数 是 长 度 画 数 。 它 是 以 下 要 提 到 的 字 串 
画 数 的 基础 。 作 法 很 简单 ， 因 入 字 些 的 第 一 个 位 元 组 即 需 其 
长 度 ， 所 以 长 度 画 数 只 是 载 入 指 今 而 已 。 如 下 面 的 字 串 宣告: 


STRING STR “HELLO THERE" 


然后 用 “LDA STRING 。 指令 就 把 字 串 的 长 度 载 大 时 各 
器 中 。 

办 出 字 串 则 很 简单 ， 下 面 程式 壕 出 位 置 ” STRING ”上 
的 宁 串 : 
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LDA STRING ;CHECK LENGTH TO INSURE 

BEQ XIT ;IT IS NOT ZERO 

LDY #$0 ;SET UP INDEX TO FIRST CHAR 
LOOP LDA STRING+S$Sl,Y ;GET THE NEXT CHARACTER 

JSR COUT ;OUTPUT IT 

INY 

CPY STRING ;DONE YET? 

BLT LOOP 


0 载 入 YY 要 存 器 而 位 冒 STRING + 1 的 值 则 载 入 黑 入 
器 中 。 如 此 一 来 当 指 标 指 到 字 串 最 后 字 元 的 后 一 个 字 元 时 ， 
Y 覃 存 器 就 等 於 字 串 的 长 度 。 也 就 是 当 存 有 有 效 这 引 时 ， 工 
要 存 器 的 值 永 过 小 於 字 串 的 长 度 。 二 使 得 我 们 可 用 使 用 BLT 
指 今 作 坑 玛 路 的 辕 束 。 

另外 一 个 比较 好 的 字 种 坟 出 程式 是 在 JSR 之 后 列 出 所 
要 琼 出 字 串 的 位 址 ， 和 前 面 的 壤 出 程式 类 似 。 程 式 如 下 : 


PRTSTR : 
STA ASAVE 
STY YSAVE 
PLA GET RETURN ADDRESS FRONK 
STA RTNADR ;THE-6502 STACK 


STA RTNADR+S1 


JSR INCRTN ;INCREMEOT THE RETURN ADDRESS 
LDY. #$0 

LDA {(RTNADR).,Y ;GET L.0.，ADDRESS OF STRING 
STA ZPAGE 


LDA {(RTNADR).Y ;GET H.0.ADDRESS OF STRING 
STA ZPAGE+ 和 1 


JSR INCRTN ;MOVE RTNADR PAST THE ADDRESS 
JSR INCRTN BYTES 


AT THIS POINT，ZPAGE POINTS TO THE STRING WHICH 
; JIS SUPPOSRED TO 8E 0UTPUT 


DEY ;RESET Y REG TO ZERO 

LDA (ZPAGE) ,Y ;GET THE LENGTH OF THE STRINC 

STA LENGTH . ;AND STORE IT IN “LENGTH" 
PRTS1 INY ,MOVE TO THE NEXT CHARACTER 


CPY LENGTH :ARE 多 ETHROUGH YET? 
BEQ PRTS2 , 
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LDA {ZPAGE),Y ;GET THIS CHARACTER 
JSR COUT JIAND OUTPUT 
JMP PRTS1 JIMOVE TO NEXT CHAR AND REPEAT 
PRTS2 。”LDA ASAVE :RESTORE THE REGISTERS 
LDY YSAVE 
JMP (RTNADR ) ;SIMULATE AN RTS 
ASAVE ”EPZ 0 ;ZERO PAGE WORKSPACE 
YSAVE ”EPZ ASAVE+S1 
ZPAGE ”EPZ YSAVE+S1 
RTNADR “EPZ ZPAGE+S$2 
COUT EQU S$FDED ;COUT ROUTINE 


此 程式 的 呼叫 是 由 JSR PRTSTR 指令， 紧 接 著 出 
字 串 的 位 址 所 和 组 成 。 


范例 : 


JMP START 
STRING ”STR "HELLO THEREY 


START 。 JSR PRTSTR 
ADR STRING 


ETC . 


字 串 串 连 (STRING CONCATENATION ) 


字 串 串 速 是 把 二 个 字 串 回 成 一 个 字 种 。 通 常 把 结果 存在 
第 三 个 字 串 。 

作法 如 下 : 首先 把 二 字 惠 的 綦 度 相 加 ， 若 和 小 於 目的 地 
字 串 的 长 度 时 ， 则 没 问 题 ， 否 则 要 报告 发 生 销 况 。 若 没 钳 慰 
， 则 把 和 存在 目的 地 字 串 的 第 一 个 位 元 组 ， 作 嵩 新 字 圳 的 长 
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sreiNG z/ 
puktL Up 6EHIND 
STRING 1 7/ 


”STRING “CONCATENRTION 


度 。 其 次 把 第 一 个 字 串 移 到 日 的 地 字 串 ， 接著 再 移 第 二 个 字 
串 ， 就 接 在 第 一 个 字 申 之 后 。 下 面 程式 把 STR1 和 STR2 串 
运 & 结果 放 在 STR3 : 


; STRING CONCATENATION EXAMPLE 


; FIRST，CHECK LENGTHS 


CLC 

LDA STR1 

ADC STR2 

BCS 下 上 RROR ;> 255 CHARS IS ALWAYS BAD 

STA STR3S ;STORE LENGCTH IN STR3S 

LDA MAXLEN ;GET MAXIMUN LENGTH OF STR3S 
CMP STR3S ;AND COMPARE TO0 DESIRED LENGTH 
BLT ERROR ;ITP LESS THAN，AN ERROR MUST 


:BE FLAGG&ED 


) THINGS ARE FINE HERE， SO MOVE STR1 TO STR3 
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LDY *#S 和 0 
CONCT1  LDA STR1+SI,Y ;GET CHAR FROM STR1 
STA STRS+S1,Y AND MOVE TO STRS 


CPY STR1) ;DONE YET? 
BLT CONCT1 


NOW ， TRANSFER STR2 TO THE TAIL END OF STR3 


LDX #S0 
CONCT2  LDA STR2+8S1.,X ;GET CHAR FROM STR2 
STA STR3+S1i,Y ;TRANSFER TO STR3 


CPX STR2 ;DONR YET? 
BLT CONCT2 


ETC. . . 


次 字 串 还 算 (SUB8STRING OPERATIONS ) 


次 字 囊 运算 是 很 重要 的 字 囊 画 数 ， 可 把 字 串 的 一 部 分 取 
出 认 设 定 到 另 一 个 字 串 。 

要 作 此 丁 数 需要 4 种 资料 : (0 原始 字 串 的 位 址 。(2) 目 的 
字 串 的 位 置 。(3) 次 字 串 的 起 始 位 器 。() 次 字 串 的 长 度 。 要 先 
检查 所 指明 的 长 度 是 否 超过 目的 字 串 所 尤 许 的 长 度 ， 若 没有 
超过 ， 则 长 度 就 存在 目的 字 串 的 第 一 个 位 四。 另外 还 要 检查 
有 原始 字 串 中 从 指明 的 索引 开始 是 否 有 锡 多 的 字 元 ( 如 指明 
的 长 度 一 样 多 ) ， 若 没有 则 要 报告 发 生 错误 。 下 面 程式 从 位 
苔 STR1 上 的 字 串 中 的 START 位 置 开始 ， 取 出 长 度 坑 
LENGTH 的 次 字 串 。 
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; SUBSTRING EXANPLE 


STR1L EPZ $0 

STR2 EPZ STR1 +S2 
START ”EPZ STR2+$2 
LEN1 EPZ START +S$1 
MAXSTR EPZ LENI+S$1 
INDEX BRBPZ MAXSTR+S1I 
LENGTH EPZ INDEX+S$1 


SUBSTR : 
PHP 
PHA 
TYA 
PHA 


CHECK TO0 SEEB IF LENGTH OF SUBSTRING IS GREATER 
; THAN THE LERNGTH OF STR2 (PASSED IN MAXSTR) 
LDA NAXSTR 


CMP LENGTH 
BLT ERROR 


) CHECK TO SEE IF ENOUUGH CHARS IN STR1 


CLC 

LDA INDRX 

BEQ ERROR ;INDEX OF ZERO NOT ALLOWED 

ADC LENGTH 

BCS ERROR ;IF > 255 THEN ALWAYS AN ERROR . 
LDY #S$0 

LDA (STR1L) ,Y JGRT LENGTH OF SOURCE STRING 
CMP LEN1 ;SEE JRF GREATER 0OR BEQUAL 

BLT ERROR :ERROR OTHERNWISE 


;NoW，TRANSFER THE SUBSTRING 

LDA LENGTH 
STA (STR2),Y ， ;INIT LENGTH 
CLC :SET UP POINTER TO BEGINNING 
LDA STR1 :OF SUBSTRING 


INC STR1+S$1 


SUBST1 INC STR2 ;INCREMENT PAST LENGTH BYTE 
、 BNE SUBST2 和 
INC STR2+$1 


SUBST2  CPY LENGTH 
BGE SUBST3S 
LDA (STR1L) ,Y 
STA (STR2) ,Y 


JMP SUBST2 
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SUBSTS “ PLA 


字 串 的 比较 (STRING COMPARISONS ) 


最 重要 的 字 串 夯 数 是 字 串 的 比较 画 数 ， 而 字 串 的 关 傈 定 
闵 如 下 : 
( 若 二 字 串 长 度 相 等 ， 而 且 第 一 个 字 串 的 每 一 个 字 都 等 
枪 第 二 个 字 串 相对 位 冒 上 的 字 ， 则 二 字 串 相等 。 
(2) 若 二 字 串 长 度 不 等 或 其 中 某 一 位 置 的 字 不 等 ， 则 二 字 
训 不 等 。 
(3) 从 第 一 个 字 元 开始 比 较 ， 直 到 某 字 串 已 结束 需 止 ， 若 
第 一 个 字 串 中 某 位 置 的 字 小 於 第 二 个 字 串 中 谱 位 置 的 
字 ， 则 褒 第 一 个 字 串 小 於 第 二 个 字 串 。 若 二 字 串 长 度 
不 等 ， 但 较 短 字 串 的 字 都 等 於 较 长 字 串 相对 应 的 字 ， 
则 襄 较 短 字 串 小 於 较 长 字 串 。 例 如 ” ABC ”小 於 ” 
SUN ”， 而 且 也 小 於 ” ABCD ”。 运 种 顺序 称 售 父 
典 和 编纂 顺序 ( lexicographical ordering ) ， 入 字典 所 
探 用 的 顺序 法 。 
他 某 字 串 大 於 另 一 字 串 的 条 件 和 小 於 的 条 件 一 样 ， 只 要 
把 (3) 中 的 所 有 ”小 於 ” 都 改 成 ”大 於 ” 就 对 。 
下 面 的 程式 可 以 测试 等 於 / 不 等 ， 小 於 / 不 小 於 和 大 於 
/ 不 大 於 等 等 情况 。 在 每 种 测试 中 ， 若 第 一 种 情况 需 睦 ( 如 
等 於 ， 小 於 或 大 於 ) ， 则 累积 器 的 值 忆 ” 届 > ( $1 )， 若 
第 二 种 情况 坑 贯 ( 如 不 等 ， 不 小 於 或 不 大 於 ) ， 则 累积 器 需 
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“ 假 >( $0 )。 第 一 个 字 串 的 指标 在 ( STR1 , STR1+ 
$1 ) 上 ， 而 第 二 个 字 串 的 指标 则 在 ( STR2 ,STR2+$1 
) 上 。 在 呼 吓 此 程式 之 前 ， 需 先 起 定好 过 个 位 蔷 值 。 


; STRING COMPARE 着】 
; TEST FOR EQUALITY 


: THIS ROUTINE COMPUTES THE COMPARISON 
; {STR1I) = (STR2) 
; AND RETURNS TRUE 0R FALSE IN THE ACCUMULATOR 


STREQU: 


PHP ;PRESERVE C & V FLAGS 
TYA 

PHA ;SAVE THE Y REGISTER 
LDY 才 g0 

LDA (STR1I) ,Y 

CMP (STR2) ,Y COMPARE LENGTHS 

BNE NOTEQL :AND QUIT IF NOT EQUAL 


: IF, LENGYTHS ARE EQUAL，SET UP INDICIES 
;) TO THE BEGINNING 0F THE STRINGS 


STA_ LENGTH SAVE LEBNGTH OF STRINGS 
INC STR1 
BNE SEQUTL 


INC STR1+S1 


SEQUL INC STR2 
BNE SEQU2 
INC STR2+S1 


SEQU2 LDA (STR1L) ,Y ;PERFORN COMPARISONS 
CMP (STR2) ,Y 
BNE SEQUS 
INY 
CPY LENGTH 
BLT SEQU2 


: THE STRINGS ARE EQUAL HERE 


JSR DECSTR :RESTORE STR1 .STR2 

PLA ;RESTORE Y & PSW REGISTERS 
TAY 

PLE 

LDA #TRUE ;RETURN TRUE 


RTS 


S66 


SEqu5 


NOTEQL “PLA 
TAY 
PLP 


DECSTR: 


SEQU4 


SREQU5 


上 
由 


JSR DECSTR 


LDA 老 FALSE 


RTS 


VALUES 


LDA STR1 
BNE SEQU4 
DEC STRI+S$1 
DEC STR1 
LDA STR2 
BNE SEQU5 
DEC STR2 +$1 
DEC STR2 


RTS 


; STRING COMPARE 首 2 


; TEST FOR LESS THAN 
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; STRINGS ARE NOT EQUAL HERE 


;RESTORE Y & PS8 


;KETURN FALSE IF NOT EQUAL 


: DECSTR-~ RESETS STR POINTERS TO THEIR ORIGINAL 


;RESTORE STRn POINTERS 


9 


; THIS ROUTINE COMPUTES 
; STR1 < STR2 


STRLES : 


PHP 
TYA 
PHA 


LDY 
LDA 
STA 
CMP 
BCGE 
LDA 
STA 


可 SO 
(STR2 ) ,YY 
MINLEN 
(STR1I) ,Y 
STRLS1 
{STR1) ,Y 
MINLEN 


ON RETURN，IF STR1 < STR2 THEN THE ACCUMULATOR IS 


) RETURNED WITH TRUE . 
; ACCUMULATOR IS RETURNED WITH THE VALUE FALSP 


IF STR1 >= STR2 THEN THE 


;PRESERVE C & V FLAGS 
;SAVE Y REGISTER 


;COMPUTESE THE MINIMUN LENGTH 
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STRLS1 INY ;TEST LOOP 
LDA (STR1) ,Y 
CKP (STR2) ,Y 
BGE NOTLES 
CPY MINLEN 
BLT STRLS1 
BEQ STRLS1 


: ALL CHARACTERS UP TO THE MINIMUM LENGTH ARE EQUAL 
; NOW SEE IF TH8 LENGTH OFR STR1 ITS LESS THAN THE 
; LENGTH OF STR2 


LDY 站 $0 

LDA (STR1) ,Y 
CNP {STR2) ,Y 
BG8 NOTLES 


: NOW STR1 < STR2 


PLA ;RESTORE THE Y REGISTER 
TAY 

PLP ;好 ESTORE PSW 

LDA 站 TRUE ;TRUE BECAUSE STR1 < 、TR2 
RTS 


NOTLES  PLA 
TAY 
PLP 
LDA 站 PFALS 叫 
RTS 


; STRING COMPARE #3 
;TEST TO SER IF STRL > STR2 


THIS ROUTINE COMPUTES THE RELATION : 
STR1L > STR2 


THE ACCUMULATOR .IS RETURNED WITH THE VALUE TRUE ($1) 
JIR THSE RELATION HOLDS，RFALSE (8$0) IS _ RETURNED 
OTHERWISE . ， 


STRGTR : 
PHP 
TYA 
PHA 


LDY #S0 ;GET THE MINIMNUM LENGTH 
LDA (STR2) ,Y 

STA MINLEN 

CMP (STR1) ,Y 

8BGE SGTR1 

LDA (STRI) ,Y 

STA MINLEN 


SGTR1 INY 
LDA (STR2) ,YY 
CNMP (STR1LI) ,Y 
BGE NOTGTR 
CPY MINLEN 
BLT SGTR1 
BEQ SGTR1 
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: STRINGS ARE EQUAL UP TO THE NINIMUM LENGTH 


LDY #S0 

LDA (STR1I) ,Y 
CNP MINLEN 
BEQ NOTGTR 


PLA 
TAY 
PLP 
LDA #TRUE 
RTS 


NOTGTR  PLA 
TAY 
PLP 
LDA #FALSE 
RTS 


TRUE EQU $1 

FALSE ” EQU S$0 

STR1 EPZ $0 

STR2 EPZ STR1 +S2 
END 


同样 地 ， 较 好 的 雁 数 传 返 技巧 留 给 芒 者 作 需 必 题 ， 通 壬 
只 是 作 和 范例 。 若 在 JSR 之 后 直接 传 返 位 址 会 更 实际 些 ， 就 
如 同 前 面 的 坊 出 程式 一 样 。 而 呼叫 过 程式 的 方式 如 下 : 


JSR STREQU 
ADR STR1 
ADR STR2 


- 0OR -~ 


JSR STRLES 
ADR STR1 
ADR STR2 


;IS STR1L - STR29 


;IS STR1 < STR27? 
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- OR - 


JSR STRCTR ;TIS STR1 > STR2? 
ADR STR1 
ADR STR2 


ETC . . . 
字 元 阵列 的 上 处理 
(HANDLING ARRAYS OF CHARACTERS ) 

有 时 候 比 较 的 字 串 的 长 度 关 不 是 可 继 的 ， 因此 就 不 铺 测 
起 二 字 串 的 长 度 是 否 相等 了 ， 过 可 和 节省 一 些 码 。 例 如 LSA 
所 用 的 指 今 符号 都 是 三 个 字 ， 所 以 只 要 检查 使 用 者 打 进 来 的 
确实 需 三 个 字 ， 然 后 再 去 符号 表 中 寻找 即 可 。 下 面 的 程式 从 
核 人 组 十 器 ( buffer ) 中 取出 NUMCHR 过 个 字 ， 然 后 与 从 
位 贰 TABLE 开始 的 列表 中 的 字 来 作 上 比较 : 


NUMCHR “REQU $5 ;INIT FOR THREE-CHAR LOOK-UP 
PTRSAV EPZ $0 ;POINTER SAVE AREA 
TBLADR EPZ PRTSAV+S1 ;USED T0 HOLD TABLE ADDRESS 
INPUT 。” EQU $200 ;GETLN INPUT BUFFER 


: THIS ROUTINE JIS ENTERED 久 ITH THE X-REGISTER POINTING 
， TO THE FIRST CHARACTER TO BE COMPARED IN THE INPUT 
;BUFFER (PAGE TWO) 


; ON RETURN，THE X REGISTER POINTS TO THE FIRST CHAR 
; PAST THE ARRAY OF LENGTH "NUMCHR"” (DEFINED ABOVE) 


LOOKUP : 
PHP 
TYA 
PHA 


STX PRTSAV ;SAVE INDEX TO CHAR ARRAY 
LDA ##TABLE ;SET UP POINTER TO TABLE 
STA TBLADR 

LDA ZXTABLE 

STA TBLADR + 和 1 
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LDY #S$0 

LO0P LDA INPUT , 共 
CMP (TBLADR) ,Y 
BNE NXTENT 
INX 
INY 
CPY #NUMNCHR 
BLT LOOP 


GO0D MATCH HERE， RETURN TRUE 


PLA 
TAY 
PLP 
LDA #TRUE 
RTS 


: CURRENT CHARACTER ARRAY DOES NOT MATCH，SET UP INDEX 
; TO THE NEXT ELENMENT IN THE TABLE (IF ONE EXISTS) 


NXTENT : 
CLC 
LDA TBLADR 
ADC 半 NUMCHR 
STA TBLADR 
BCC NXT 它 1 
INC TBLADR+ 和 多 1 


; RESTORE X REGISTER 


NXxTEL  LDX PTRSAV 1 
LDY #S0 :RE_INIT Y RECISTER 


; CHECK TO SEE IF AT END OF TABLE 


LDA TBLADR 
CNP #TBLEND 
LDA TBLADR+S$1 
S8C /TBLEND 
BLT LOOP 


; NO MORE ENTRIES ，RETURN FALSE AND LEAVE X REGISTER 
; POINTING TO THE BECINNING OF THE TABLE 

PLA 

TAY 

PLP 

LDA #FALSE 

RTS 


。 。 
) SAMPLE TABLE， EACH ENTRY MUST CONTAIN "NUMCHR"”NUN 
; OF CHARACTERS (IN THIS CASE，THREE ) 


: OF CHARACTERS (IN THIS CASE，THREE) 
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TABLE ”ASC "ABCn 
AS 


AS 
TBLEND  EQU * 
EN 


注 悉 TBLEND 耻 定 义 垮 列表 之 后 第 一 个 可 用 的 位 填 。 

在 6502 微 处理 机 中 ， 列 表 的 处 理 速 度 很 快 ， 尤 其 当 列 
表 的 长 度 小 於 256 个 位 元 组 时 更 快 。 上 面 的 程式 只 是 一 般 性 
检查 列表 ， 任 何 长 度 的 列表 都 可 以 使 用 。 对 长 度 小 於 256 位 
元 组 的 列表 而 言 ， 每 次 增加 Y 杰 存 器 ， 而 不 增加 16 位 元 的 
某 位 起 ， 则 可 以 省 下 许多 码 和 时 间 。 若 以 了 索引 位 址 法 来 代 
血 问 接 由 立 索 引 位 址 法 ， 全 于 本 下 全 全 人 
小 的 列表 的 程式 如 下 : 


;) TO THR FIRST CHARACTER TO BE COMPARED IN THE INPUT 
; BUFFER (PAGE TWO ) 

) ON RETURN，THE X REGISTER POINTS TO THE FIRST CHAR 
; PAST THE ARRAY OF LENGTH "NUMCHR'” (DEFPINED ABOVE ) 


LOOKUP : 

PHP 
TXA 
PHA 
TYA 
“PHA 


: TRANSFER INPUT TO BUFFER SAVE AREA 


LDY 
L00P LDA 
STA 
INX 
INY 
CPY 
BLT 
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疮 SO 
INPUT ,从 
BUFFER,Y 


#NUMCHR 
LO0P 


: NOW。 COMPARE BUFFER SAVE AREA TO DATA IN TABLE 


LDX 
LDY 
LOOP0O ” LDA 
CNP 
BNE 
INY 
INX 
CPX 
BLT 


## 和 0 

有 0 
BUFFER ,X 
TABLE ,YY 
NXTENT 


闻 NUMCHR 
La0 印 


: A MATCH IS ROUND HERE 


PLA 
TAY 
PLA 
TAX 
INX 
INX 
INX 
. PLP 
LDA 
RTS 


; INCREMENT 


NXTENT ”CPX 
BGRE 
CPX 
BGE 
INY 


NXT2 JINY 
NXT1 INY 
LDX 
VPX 
BLT 


;LEAVE POINTING_ AT NEXT CHAR 
学 TRUE 


TO THE NEXT ENTRY (IF IT EXISTS 


站 和 2 
NXT1 
学 每】 
NXT2 


章 SO 
TBLRNG 
L00PO0 


: END 0F TABLE HAS BEEN REACHED 


;LEAVE X REG POINTING TO CHARS 


##FALS 忆 ;STRING NOT FOUND 
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: SAMPLE TABLE， EACH ENTRY MUST CONTAIN "NUMNCHR"” NUM 
; 0F CHARACTERS (IN THIS CASE，THREE ) 


TABLE ASC "ABC 
ASC "DEF" 


AS 和 ETCu 
TBLENG “ EQU *-TABLE 
END 


例 中 用 TBLENG 指出 玫 的 长 度 ， 取 代 原 先 用 来 指出 夷 最 后 
位 址 的 指 模 。 同 时 请 记 住 Y 要 存 器 仅 估 8 个 位 元 而 已 。 

处 理 文字 串 的 方式 不 仅 限 於 我 们 在 过 草 中 所 提 方法 ， 我 
们 公 是 提出 最 受 大 家 喜好 的 方法 介 粘 栓 芒 者 。 我 们 也 希 刻 由 
过 娄 个 例子 能 使 小 者 自己 能 想 出 其 他 更 好 方法 来 处理 女 字 让 
的 比较 问题 。 
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第 十 五 草 
APPLE II 特殊 的 输出 入 方式 


APPLE 壕 出 入 车 构 (APPLE /D STRUCTURE) 


APPLE1I 受到 广大 炊 迎 的 原因 之 一 ， 就 是 它 的 核 出 入 
烙 构 与 其 他 机 型 相 比 有 较 好 的 设计 。 它 有 所 谓 “ 电动 玩具 入 
出 入 ”过 接 器 配合 著 类 比 输入 与 数位 蜀 出 人 线 ， 同 然 过 些 本 
来 目的 是 速 接 电动 玩具 及 一 些 游 乐 全 器 用 的 ， 但 它 也 可 以 做 
入 以 印 玫 机 连接 的 界面 及 R S232 禾 甚 至 工业 控制 用 。 很 多 
油 进 净 甘 都 可 以 与 “ 电动 玩具 办 出 人 ”连接 而 使 用 ， 例 如 光 
生 就 是 一 个 例子 。 APPLE 1 的 “ 电动 玩具 加 出 入 ”可 襄 是 

它 最 重要 的 特色 之 一 ， 使 得 它 与 其 他 机 型 相 比 不 但 不 避 色 其 
” 至 超过 。 


HEAR NO EVIL 7/ 
SEE NO EVIL7 
SPEAK NG EViL/ 
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HEAR_EVILL 
SEE EVIL/ 
SPEAK EVILV/ 


”spEciaLIzED 1/o 


要 了 解 “ 电动 玩具 培 出 人 ”的 特色 ， 先 从 它 能 提供 些 什 
床 样 的 芥 出 人 开始 。 它 有 三 人 条“ 族 ” 的 核 入 ， 另 加 四 人 条 ”“ 通 
告 者 ”输出 与 四 对 8 位 元 类 上 比 转 换 成 数位 略 入 歧 伟 。 另 外 逮 
有 一 人 条 公用 激发 线 。 

除了 “电动 玩具 输出 入 ”外 ， APPLE 另外 有 一 些 特别 
的 输出 入 对 置 提供 葵 使 用 者 使 用 ， 例 如 : 附 在 APPLE1 上 
面 的 扬 避 器 ， 卡 带 办 出 和 及 键盘 略 入 技 般 。 另 外 APPLE1I 
也 有 LORES 和 与 HIRES 系 杭 来 帮助 我 们 绘图。 而 控制 以 上 
过 些 装 针 与 传 返 资料 给 过 些 装 置 时 ， 只 需要 对 APPLE 某 些 
指定 记 恰 体位 置 做 存 或 取 的 动作 即 可 。 

过 些 指 定 的 记 展 体位 蔷 分 人 在 $C 000 到 有 CO0FE 的 
128 价位 元 租 中 。 例 如 先前 讨论 键 反 格 和 时， 输入 资料 是 放 
在 $C000， 如 果 $Cc00 上 的 第 七 个 位 元 愉 激 发 则 代表 现在 
$c000 内 存 有 输入 资料 * 如 果 $C 000 第 七 个 位 元 仍 在 未 
激发 状态 则 代表 资料 尚未 由 键 反 输 入 。 而 $C000 输入 的 资 
料 在 接收 到 之 后， 我 们 须 将 $C000 第 七 位 元 改 成 未 激发 状 


人 
哎 志 
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驴 否 则 等 一 会 又 会 拿 到 同样 的 字 ， 汪 项 工作 由 将 资料 放 到 
$Cc010 动作 完成 。 下 面 就 是 天 个 完整 的 接收 键盘 替 人 符号 
的 程式 KEYIN : 

本 KEYIN LDA &C000 


人 BPL KEYIN ;IFR NO KEY PRESSED，LOOP BACK 
STA SC010 CLEAR BIT #7 OF THE KEYBOARD 


KEYIN 程式 当 别 的 程式 须要 由 键盘 壤 入 资料 而 砖 呼 吓 时 ， 
它 前 面 的 两 个 指 分 就 形成 一 个 姐 路 ( LOOP ) 等 待 输入 资料 
， 直 到 有 了 软 入 资料 之 后 暂 存 器 A 内 存 著 与 资料 对 赚 的 A S 
C I 码 而 稳 模 往 第 三 个 指令 执行 使 得 资料 存 人 $C010 而 $ 
C000 的 第 七 个 位 元 就 饮 复 成 未 激发 状态 ， 人 
由 的 程式 去 焰 米 执行 的 工作 。 

有 时 候 我 们 只 须要 知道 到 底 有 没有 输入 就 可 以 了 ， 而 不 
须知 道 输 入 资料 是 什么 。 在 过 种 情形 下 BIT 指令 就 能 提供 
我 们 较 方 便 的 检查 方式 ， 我 们 构 由 BIT 指 今 检 查 $C000 
而 检查 的 结 果 会 造成 N 旗 值 的 构 化 ， 如 果 有 办 和 的 情形 ， 则 
N 旗 在 BIT 指 今 执 行 后 会 被 激发 ， 而 BMVBPL 指 今 就 可 
以 配合 而 做 转移 ( BRANCH ) 的 工作 而 做 到 如 果 有 输入 则 
做 某 一 项 工作 如 果 没 有 资料 输入 则 做 另 一 项 工作 的 油 择 。 下 
列 是 个 检查 是 否 有 输入 资料 的 "KEYPRS. 程式 ， 它 在 检查 完 
之 后 如 果 有 琼 入 则 在 存 器 A 存 有 “” TRUE " 值 ( 1 ) ， 否 
则 就 在 暂 存 器 A 存 ” FALSE ” 值 ( 0 )。 
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; FUNCTION KEYPRS，， RETURNS TRUE IF A KEY HAS BEEN 
; PRESSED ，FALSE OTHERWISE， THIS VALUE IS RETURNED 
;) IN THE ACCUMULATOR . 


KEYPRS : / 
LDA SCo00 
ROL 


;SHIFT SIGN BIT (#7) INTO 
ROL ITHE L.0. BIT OF THE ACC . 
AND 闻 和 1 ;MASK 0UT ALL BUT BIT #0. 
RTS 


过 个 程式 首先 将 资料 由 $C000 搬 到 A 暂 存 器 中 ， 再 克 由 二 
次 向 左 方 循环 的 位 移 ( 第 一 次 位 移 到 浊 位 位 元 ， 第 二 次 位 移 
到 最 右 沽 位 元 ) 而 将 第 7 位 元 值 撤 到 第 0 位 元 位 址 上 。 然 后 
与 $ 1 做 慰 辑 “ 及 ”工作 ， 使 得 除了 原先 的 第 7 位 元 现在 的 
第 0 位 元 上 的 资料 外 都 彼 易 除了 ， 而 第 1 位 元 我 们 前 面 均 到 
是 卖 示 是 否 有 资料 慷 入 。 吉 使 得 如 果 有 输入 则 A 暂 存 器 存 1 
否则 就 存 0。 

第 C020 位 址 是 供 卡带 输出 时 使 用 的 ， 通 常 卡带 是 提供 
不 具 人 备 软 式 磁 碟 系 杭 的 Apple 系 纺 用 来 储存 数量 相当 大 东 
且 需 要 保存 的 资料 所 用 的 。 但 你 也 可 以 将 过 个 输出 接 到 任何 
岳 大 系 太 的 核 入 而 成 坟 一 个 声 理 的 术 出 ， 过 与 Apple 本 身 
配备 在 $C030 的 揭 台 器 的 功 劾 就 一 样 了 。 正 为 卡带 暂 出 
与 Apple 本 身 扬 贞 器 可 以 具有 同样 功能 ， 它 们 的 工作 方式 
就 十 分 类 似 ， 下 面 我 们 就 合 伯 寻 花 一 下 。 

一 般 人 类 所 能 区 到 的 昔 调 频率 大 都 在 20 赫 楷 到 2 万 页 
兹 , 灿 就 是 每 秒 20 个 期 到 2 艺 个 明 期 之 问 。 所 以 理论 上 
你 使 扬 竖 器 每 秒 移 进 移出 的 做 2 0 次 到 2 万 次 之 间 ， 它 就 会 
发 出 “ 杂 昔 ”出 来 ， 也 就 是 会 产生 出 -- 些 噪 得 出 来 。 租 因 
APPLE 1 儿 上 所 供 库 的 扬 吉 器 仅 2 英 时 大 ， 它 不 能 对 理 花 上 
的 极 值 做 正确 的 反应 ， 演 使 得 只 有 在 6 0 南 花 到 1 万 献 走 之 


A 
， 
A 


中 
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间 的 恕 号 可 以 由 它 正 常 的 产生 ， 其 他 就 不 保险 了 。 但 如 果 你 


“不 用 APPLE 工本 身 扬 声 器 而 将 卡带 输出 接 到 一 个 劾 果 十 分 


好 的 扬 忌 扩大 系统 上 ， 过 些 问题 就 不 存在 了 。 另 外 一 点 ， 要 
造成 移 进 移出 遇 期 楼 化 你 可 以 简单 的 利用 一 个 类 似 load 的 
指 今 搬 动 位 於 $C030 或 $C020 ( 卡带 略 出 ) 的 资料 。 而 

load 类 指 信 有 LDA,LDX,LDY BIT ADC, AND， 

CMP CPX, CPY 与 ORA. 等 9 个 。 存 回 ( Store  ) 指 
今 则 不 能 兔 用 来 产生 搬出 搬入 的 尝 期 绝 化 ， 过 是 因 垮 6502 
写 资 料 到 记 司 体内 动 做 的 工作 方式 不 能 过 到 要 求 。 因 坊 6502 
在 发 出 写 的 要 求 之 前 都 伴随 著 有 一 个 该 的 动作 ， 两 者 相差 

92 n 秒 ， 过 使 得 如 果 你 发 出 写 的 指令，6502 先 发 出 一 个 汗 
的 命令 要 求 提 声 器 往 某 一 方向 移动 ， 在 92n 秒 之 后 又 到 出 一 
个 写 的 要 求 在 同一 位 址 造成 扬声器 往 另 外 一 个 方向 移动 ， 而 
一 个 扬声器 不 可 能 喜 敏 到 过 种 程度 ， 过 两 个 动作 根本 就 相互 
牵制 而 抵消 了 ， 因 此 移入 移出 动作 根本 不 会 发 生 而 无 法 法 臻 
萌 的 产生 。 

对 於 公用 激发 线 的 对 阁 位 址 ， APPLE IT 提供 的 是 $C 
040， 当 你 由 $C040 将 资料 搬 到 芹 存 器 时 ( 也 就 是 Load 
时 ) 造成 公用 激发 线 在 “电动 玩具 壹 出 和 ” 连 线 器 第 5 个 肢 
上 产生 一 个 脾 波 。 如 果 你 将 资料 由 暂 存 器 存 轩 ( store ) 
$c040 则 在 同样 的 地 方 产生 二 个 有 波 。 但 因 坑 讨论 过 人 条 和 线 
的 功能 需要 涉及 一 些 硬 体 界面 的 问题 ， 所 以 本 书 中 不 准备 再 
深入 地 讨论 了 ! 

$Cc050 到 $C057 八 外 和 线 是 供 导 择 藤 光 幕 显现 方式 用 的 
。 一 般 而 言 ，APPLE I 提供 了 两 个 记 民 体 空间 供 要 在 莹 光 
幕 上 题 现 的 资料 储 放 用 的 ， 一 个 称 主 要 (primary ”).， 
另 一 个 称 辅助 (secondary ”)。 而 对 於是 现 资料 的 分 类 也 
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分 成 : 1 ) 图 形 ( GRAPHIC )， 与 2 ) 文字 (TEXT ) 
两 种 ， 其 中 国 形 资料 有 两 种 系 坑 可 以 用 来 显现 图 形 : 1 ) 
LORES 和 与 2 ) HIRES 。 而 也 允许 圈 形 与 文字 混合 的 表示 
方式 ， 在 此 种 情形 下 和 莹 光 幕 下 方 有 四 行 空 间 供 文 字 资 料 显 现 
， 过 些 人 情形 的 控制 都 是 由 $C050 到 $C057 过 八条 和 线 来 做 : 

1 ) $C050 : 愤 择 败 形 显现 

2 ) $C051 : 择 文字 显现 

3 ) $Cc052 :全 部 届 光 幕 都 是 图 形 显现 

4 ) $C053 : 釜 光 幕 上 半 邵 图 形 ， 下 半 导 四 行文 字 

5 ) $Cc054 : 主要 储存 资料 显现 泪 择 

6 ) $C055 : 埔 助 储存 资料 题 现 愤 择 

7 ) $Cc056 :图 形 显现 用 LORES 系 炉 

8 ) $C057 :图 形 显 现 用 HIRES 系 梳 
其 中 要 注 亚 圈 形 状态 下 的 营 光 幕 只 接收 图 形 资料 的 显现 ( 也 
就 是 APPLE 工 本 身 也 处 於 图 形状 态 ) ， 相 同 的 文字 状态 也 
有 相同 限制 。 

$c058 到 $C05F 八条 线 划 用 来 控制 四 条“ 通告 者 ” 讯 
” 屿 的 术 出 ， 过 四 条“ 通告 者 ” 罗 出 丽 号 是 TTL 等 级 的 讯号 
桩 出， 但 如 要 用 以 驱动 类 似 LED 类 花费 电流 装 冒 则 须要 另 


外 接 和 焰 征 器 才 行 。 章 四 人 条 过 出 分 别 是 ANU ，AN1，AN2，, 与 : 


AN3“。 相 半 赚 的 由 $C058 位 鞠 开始 的 一 条 用 以 控制 的 开 雇 
状态 ; 一 人 条 用 以 控制 关闭 状态 而 成 对 的 8 人 条 和 线 分 成 四 半 ， 

$ C058 有 旺 $C059,，$C05A 与 $C05B ，$C05C 与 $c05D 
， 及 $C05E 与 $CO5F。 半 应 著 $C058 与 $ C059 控制 
AN0 的 天 与 中 ， 一 样 的 四 对 控制 线 控制 四 人 条“ 通告 者 ” 验 
出 情形 。 但 是 因 乞 无 法 知道 那 四 人 条 符 出 线 状 态 分 别 是 嚼 或 天 
因此 就 需要 使 用 者 自己 记 杀 了 。 


/ 


/ 
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$C060 是 供 卡带 壹 入 资料 使 用 的 ， 卡 带 除 了 速度 较 磁 
碟 速 度 慢 外 ， 价 格 则 较 便宜 而 且 也 可 以 用 它 将 世 革 的 类 比 波 
壕 入 APPLE 下 做 数位 化 的 工作 。 你 可 以 管 试 将 高 壹 出 灾 殉 
风 的 驻 出 连接 到 卡带 软 入 接点 而 孝 行 下 面 程式 : 


LOOP LDA S$C060 ;TEST CASSETTE INPUT PORT 
: BPL LOOP 
LDA $C030 ;TOGGLE SPEAKER 
LOOP2 ”LDA 8$co60 
BMI LOOP2 
LDA $C030 
JMP LOOP 
END 


然后 划一 下 由 扬 必 器 所 发 出 的 声音 。 一 般 对 声 则 做 分 析 时 你 
就 不 能 像 上 例 中 二 庆 做 了 ， 而 须要 将 讯号 存 到 记 憾 体 中 * 然 
后 再 由 记 民 体 存 回 磁 碟 中 或 者 卡带 中 ， 如 此 可 使 你 做 探 样 的 
工作 而 不 撩 考虑 额外 硬 体 线路 的 配合 。 

$C061,$C062， 与 $C063 用 以 债 测 出 是 否 有 “ 旗 ” 
的 壹 入 ( 也 就 是 按钮 是 否 破 按 下 ) ， 它 们 分 别 圣 巍 著 PB1 ， 
PB2 与 PB3 三 个 按钮 。 如 果 相 对 应 的 按钮 破 按 下 则 对 朵 的 
记 居 体 位 址 中 第 7 个 位 元 就 筱 激发 成 ”1 ”否则 就 恢复 成 “ 
0 ”。 下 面 是 一 个 检查 PB 按钮 是 否 被 按 下 的 程式 ， 如 果 有 
就 产生 嘿嘿 各 ， 否 则 就 无 疡 。 


LOOP BIT P81 


SB8PL LOOP 
LDA #BELL ;LOAD BELL CHARACTERER INTO ACC 
JSR COUT1 ;OUTPUT BELL CHARACTER 
JMNMP LOOP 

PB1 EQU SC061 


COUT1 。 EQU SFDFO 
BELL EQU S$87 
END 
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由 $C064 到 $C067 四 个 记 司 体位 置 是 分 别 对 四 个 “ 
电动 玩具 输入 ”做 接收 资料 用 。 在 起 动 那 四 个 “ 电动 玩具 办 
入 ”之 前 ， 你 须 对 $C070 做 资料 索取 的 动作 ， 以 租 动 那 罚 
入 装 转 中 的 558 时 伺 器 做 类 上 比 转 换 成 数位 时 记 数 用 。 而 当 上 类 
上 比 在 转换 成 数位 过 程 中 ， 那 输入 相对 应 位 址 的 记 司 体 中 第 七 
个 位 元 将 呈现 ″ 1 ”的 值 ， 也 就 是 讼 当 相 对 位 址 记 锯 体 中 值 
坊 负 的 时 候 代表 类 上 比 讯 号 仍 在 转换 中 。 但 须 注意 转换 完 值 不 
会 出 现在 相对 位 址 ， 值 的 取得 是 要 你 自己 计算 要 花 多 久 时 间 
得 到 正 数 值 。 而 过 在 下 面 例子 中 有 很 好 的 解释 : 


PREAD 。” LDA $C070 )TRIGGER PADDLES 
LDY #S0 ;INIT COUNT 
NOP ;DELAY REQUIRED FOR HARDWARE 
NOP ;PURPOSES 
PREAD2  LDA 和 C064,X ;TEST DESIRED PADDLE 
BPL RTS2D 
INY 
BNE PREAD2 中 下 > SFF 
DEY ; 0 SFF 
RTS2D 。” RTS 
END 


其 中 X 内 存 著 那 一 个 “ 电动 玩具 桩 入 ”装置 的 编号 。 而 在 接 
收 完 时 ， 值 会 放 在 Y 暂 存 器 内 。 而 在 使 用 过 种 输入 时 有 下 列 
二 点 须要 注 伙 : 

i ) 不 可 以 检查 完 一 个 输入 之 后 电 上 检查 另 一 个 输入 ; 
尖 是 因 篇 硬 体 上 的 一 些 届 计 不 能 万 许 你 如 此 做 ， 而 你 可 探 用 
“下列 程 式 来 分 隔 两 次 核 入 ， 以 过 到 延 带 的 要 求 。 


BNE LOOP 
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ii ) 利用 电动 玩具 壤 入 ”要 比 其 他 输入 肖 费 许多 时 间 
， 所 以 你 在 用 它 来 处 理 一 些 问 题 时 要 注 赤 时 间 的 问题 。 

APPLEI 的 输入 不 仅 提 供 一 些 驱 做 电动 玩具 的 输入 工 
具 ， 对 一 些 傍 器 的 控制 所 须要 的 类 上 比 居 号 的 核 入 也 较 其 他 机 
器 更 方便 。 
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第 十 六 章 
SWEET-16 简 介 


SWEET-16 


.在 整数 BASIC 中 提供 了 一 个 转换 处 理 器 : SWEET-16 
， 它 是 以 太 译 器 ( interpreter ) 方式 处 理 指 今 的 解释 
与 执行 。 一 般 用 6502 提供 的 杰 器 码 处 理 16 位 元 资料 须要 二 
个 位 元 和 组 到 三 个 位 元 租 的 指令 ,但 SWEET-16 只 须要 一 个 
位 元 和 组 长 度 的 指 今 便 可 以 了 ， 肖 使 得 用 SWEET-16 写 的 程 
式 十 分 简 洛 。 本 章 就 在 讨论 SWEET -16 的 一 些 特色 与 优 缺 


点 。 二 
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首先 我 们 先 寻 论 一 下 什么 是 转换 处 理 器 ? 而 篇 绎 器 方式 
又 是 怎么 回 事 ? 所 计 转 换 不 理 器 ， 简 单 的 说 便 是 提供 一 些 原 
先 机 器 上 所 没有 的 指令 ， 权 由 进 转换 处 理 器 的 转换 而 执行 一 
些 副 程式 使 你 能 锡 热 行 原先 背 不 存在 的 指 分 。 也 就 是 一 个 原 
先 不 存在 的 指令 执行 时 是 利用 相对 应 於 它 的 一 个 副 程 式 来 做 
。 而 过 种 处 理 指令 的 过 程 也 就 是 编 冰 器 方式 。 所 以 对 欠 
SWEET-16 的 每 一 个 指令 都 有 一 个 副 程 式 来 执行 ， 每 次 
SWEET-16 的 一 个 指 今 伞 执行 时 就 造成 相对 应 的 程式 被 呼 
” 咱 执 行 。 

这 种 处理 指 今 的 方式 有 什么 缺点 ? 最 重要 的 一 个 缺点 大 
概 就 是 速度 问题 了 ， 以 SWEET-16 需 例 : 对 同样 的 问题 探 
相同 的 方法 去 解 时 ， 以 6502 的 粗 合 语言 写 出 的 程式 在 速度 
上 较 用 SWEET-16 的 语言 写 出 的 程式 要 人 快 5 到 ?7 全。 而 且 
对 SWEET-16 而 言 ， 它 只 存在 APPLE 1 提供 两 种 BASIC 
中 的 整数 BASIC 中 而 已 。 如 果 你 不 具备 整数 BASIC 在 你 的 
APPLE il 系 梳 中 时 ， 你 有 三 种 方式 可 供 愤 择 : 1 ) 对 以 下 
讨论 跳 过 ， 落 且 写 了 有 SWEET-16 的 存在 ，2 ) 借 别 人 有 
整数 BASIC 的 APPLEI 使 用 ，3 ) 将 SWEET-16 加 入 
到 你 程式 中 间 。 但 是 其 中 第 3 人 条 路 将 花费 你 不 少时 间 与 记 慑 
体 空 间 ( 1 K 位 元 组 ) 才能 完成 。 

SWEET-16 到 底 是 怎样 的 倩 形 呢 ? 它 提 供 你 有 16 个 
16 位 元 暂 存 器 的 计算 机 一 样 的 一 个 系 杭 。 演 些 暂 存 器 是 用 
以 存 於 位 址 及 运算 中 间 值 用 ， 它 们 篇 号 由 RO 到 RF (16 奴 
位 记 数 法 的 F ) 。 其 中 RO，RC ,RE 与 RF 是 有 著 特殊 功用 
e。RO 秽 成 SWEET-16 的 累积 器 ， 在 SWEET-16 系 入 中 
只 能 圣 RO 累积 器 做 一 些 加 法 、 沽 法 、 和 与 比较 的 动作 而 已 。 
RC 六 是 SWEET-16 的 推倒 器 指标 ( STACK POINTER ) 
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， 供 和 葵 副 程 式 呼 叫 时 用 。RE 则 是 存 一 些 运 算 状 态 的 芹 存 器 
，RF 是 程式 计数 器 ( PROGRAM COUNTER ) 。 除 了 
二 
供 计 算 操 作 元 位 址 时 用 。 
与 我 们 在 执行 十 进位 带 算 一 一 样 ， 用 SWEET-16 系 态 之 
前 我 们 须 由 原先 系统 跳 到 SWEET-16 的 系 梳 内 ， 然 后 才能 
开始 执行 你 的 SWEET-I16 程式 ， 而 在 执行 完 你 的 SWEET 
-16 程式 之 后 想 要 回 到 原先 的 系统 内 也 要 用 一 些 步 卫 才 能 回 
复原 先 的 系 杭 。 到 底 如 何 进 入 SWEET-16 系 入 呢 ? 你 可 用 
JSR  $F689 指 今 完 成; 至於 返 回 原先 程式 吧 ? 用 RTN 指 
今 即 可 。 下 面 就 是 一 个 呼叫 SWEET-16 系统 然后 立即 又 同 
复 到 原先 系统 的 程式 例子 : 


SW16  ，EQU $F689 
JSR SW16 
RTN 


RTS 
END 


例子 中 第 2 个 指 今 就 是 要 求 进 入 SWEET-16 系统 的 命令， 
而 跟 在 过 指 今后 面 直 到 RTN 之 前 就 都 应 设 是 SWEET-16 
本 身 特有 指 分 了 ， 而 不 能 是 6502 的 指令 。 而 接著 是 SWEET 
”16 的 RIN 指令 各 使 得 进 人 了 SWEET-16 和 有 系统 之 后 又 再 

度 返回 到 原先 系 炉 内 ， 而 在 吉之 后 因 坊 回 到 原先 系统 中 所 以 
只 能 用 6502 指 今 。 至 於 RTS 则 是 6502 的 指 今 代表 执行 完 
了 过 副 程 式 而 要 回 到 原先 呼叫 吉 副 程式 的 主 程式 或 是 监督 程 
式 中 。 因 此 不 花 你 在 程式 中 什么 地 方 用 到 SWEET -16 的 指 
今 都 须 使 用 JSR  $F689 做 开头 六 用 RTN 指令 做 结束 ， 
” 理 则 后果 准 以 预料 。 
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在 SWEET- 16 系统 中 情况 要 存 器 所 能 记录 的 程式 状态 
_ 有: 进位 、 零 值 、 负 值 。 另 外 对 於 负 1 (” $FFFF ) 值 也 有 
检查 与 记 人 。 

SWEET- 16 系统 也 人 克 许 使 用 者 将 暂 存 器 做 类 似 6502 
指 今 中 直接 搬 的 动作 ( LOAD IMMEDIATED ) ， 也 就 是 
将 某 个 16 位 元 的 值 搬 到 某 个 要 存 器 中 。 过 指 今 的 格式 如 下 : 


SET Rn,<16-BIT VALUE> 


其 中 16 位 元 的 值 可 以 是 任何 -IlSA ”所 能 接受 的 表示 位 址 方 
式 ， 而 Rn 中 mn 是 个 16 进位 的 数值 由 $0 到 $F ， 它 用 来 指 
出 你 所 要 把 过 个 16 位 元 的 值 放 到 16 个 草 存 器 中 那 一 个 。 下 
面 就 是 SWEET- 16 的 SET 指 今 将 值 放 到 要 存 器 中 的 例子 : 


LABEL ”SET RO ,LABERL ;LOADS THE CURRENT ADDRESS 
”INTO RO 
SET R1 ,和 25 ;LOADS 8$0025 INTO R1 
SBT R5 .8$800 'LOADS $0800 INTO R5 


-个 3ET 指令 估 用 3 个 位 元 棚 ， 第 一 个 位 元 组 存 SET 的 操 
作 码 ， 但 因 资 料 是 16 个 位 元 所 以 要 用 第 二 个 与 第 三 个 位 元 
组 来 存 。 SET RF ， <vALUE> ”是 个 较 特 别 的 情形 ， 因 
REF 是 SWEET-16 系统 的 程式 计数 器 ， 而 将 程式 计数 器 内 
容 改 释 成 某 一 个 数值 也 就 相当 於 做 踏 指 令 ( JUMP “ ) 的 工 
作 一 样 。 另 外 对 RC 与 RE 两 个 杰 存 器 作 SET 指令 也 顺 特 别 
注意 ， 因 坑 过 两 个 芹 存 器 分 别 有 它 的 特殊 用 途 ，R C 供 堆 合 
器 指标 用 ， 而 R E 则 是 供 状态 暂 存 器 使 用 。 如 果 你 将 老 数 值 
搬 到 某 个 要 存 器 就 会 造成 状态 轨 存 器 中 雳 指标 ( ZERO 

FLAG ) 被 激 发 ， 否 则 会 恢复 成 原始 状态 ， 同 样 的 负 1 ( 

$FFFF ) 夫 搬 到 某 个 暂 存 器 内 时 也 会 造成 负 1 指标 的 被 激 
发 。 但 是 不 管 你 搬 任何 数值 到 任何 一 个 棵 存 器 内 都 会 使 进位 
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指标 恢复 成 原来 的 状 感 。 
SWEET- 16 提供 LDR 指 今 使 资料 可 以 由 某 个 要 存 器 
所 到 昧 积 器 内 ， 它 的 格式 坑 : 


LDR Rn 


其 中 n 是 某 个 SWEET- 16 要 存 器 的 编号 ， 由 $0 到 $F。 如 
果 老 被 搬 到 累积 器 则 会 与 前 面 的 SET 指 今 一 样 使 零 指 标 补 
激发 ， 相 同情 况 下 负 1 的 移动 也 会 造成 负 1 指标 的 愉 激 发 ， 
负数 也 造成 负数 指标 的 被 激发 。 而 过 可 以 用 来 检查 累积 器 ， 
如 果 你 用 LDR RO 则 就 造成 累积 器 搬 回 本 身 的 值 ， 但 状态 
芹 存 器 也 因此 而 依据 果 积 器 状态 而 激 玖 通 当 指 标 。 LDR 指 
今 因 不 须 使 用 16 位 元 的 资料 ， 因此 只 估 一 个 位 元 而 已 。 

STO ( 存 回 芹 存 器 指 今 ) 的 动作 与 LDR 指令 相反 ， 它 
是 将 累积 器 内 容 存 回 指定 草 存 器 中 。 它 与 6502 指 今 群 中 的 
TYA 与 TXA 指 今 的 功能 类 似 。 与 LDR 一 样 会 使 状态 杰 存 器 
中 适当 的 指标 窟 激发 ， 而 且 指 仿 仅 估 一 个 位 元 组 长 度 。 

但 是 SWEET- 16 只 提供 要 存 器 与 黑 积 器 资料 的 搬 动 而 
无 法 做 要 存 器 与 村 存 器 间 的 资料 转换 ， 过 就 必须 靠 二 个 指 今 
完成 ， 一 个 是 搬 到 果 积 器 内 另 一 个 是 由 累积 器 再 搬 到 目地 要 
存 器 内 。 例 如 要 将 R5 内容 搬 到 R6 内 时 须要 执行 下 列 指 今 : 


LDR R5 
STO R6 . 


而 由 例子 中 你 可 以 发 现 黑 积 器 的 内 容 在 过 个 过 程 中 都 被 破 二 
了 ! 在 SWEET-16 中 的 黑 积 器 因 坊 常常 披 使 用 来 传 返 资料 
， 因此 不 适合 用 来 存 一 些 重要 的 资料 ， 而 只 能 用 来 存 一 些 计 
算 中 所 须 的 操作 元 而 已 。 

SWEET- 16 只 提供 两 种 算术 运算 ，16 位 元 的 加 与 16 


B 
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位 元 的 减 。 加 是 用 Sweet-16 ”的 ADD 指 今 热 行 的 ， 它 是 将 
某 个 指定 要 存 器 的 内 容 加 到 累积 器 内 而 答案 自然 也 就 存在 味 
积 器 中 了 ! ADD 指令 的 格式 如 下 : 


ADD Rn 


n 与 前 面 一 样 需 16 进位 的 $0 到 $F 之 问 任何 的 一 个 数字 ， 
用 来 指定 累积 器 与 那 一 个 暂 存 器 相 加 。 值 得 注意 的 是 $ 0 也 
被 万 许 ， 过 可 以 用 来 将 时 积 器 内 容 乘 2 。 相 加 的 结果 会 造成 
状态 亚 存 器 内 的 指标 依 傅 形 而 被 激发， 例如 : 第 16 个 位 元 
和 进位 到 第 17 个 位 元 将 造成 进位 指标 的 被 激发 ， 而 因 进 位 不 
能 参 予 相 加 动作 ， 过 使 得 进位 指标 只 能 供 浴 位 情况 检查 用 而 
已 。ADD 指 今 只 估 一 个 位 元 租 的 长 度 。 

SUB 指 今 执 行 Sweet-16 系 坑 中 相 茂 的 工作 ， 它 是 将 
指定 要 存 器 的 内 容 由 果 积 器 内 沽 去 ， 也 就 是 果 积 器 内 容 减 去 
晶 存 器 内 容 ， 而 最 后 千 果 与 加 法 一 样 放 在 果 积 器 内 。 SUB 
指令 可 用 来 比较 困 著 器 与 杰 存 器 内 所 存 的 值 ， 过 与 6502 中 
的 SBC 指 今 十 分 类 似 。 因 需 如 果 累 积 器 内 的 值 大 於 杰 存 器 
内 的 值 则 相 减 的 结果 会 造成 进位 指标 的 被 激发 ， 而 如 果 小 认 
亚 存 器 内 的 值 则 相 沽 则 会 造成 进位 指标 被 回复 到 原始 状态 ， 
相等 时 会 使 得 零 指标 被 激发 ， 但 如 不 相等 则 雳 指标 被 恢复 成 
原始 状态 。 所 以 还 著 检查 堆 指 标 与 进位 指标 将 可 以 知道 亚 存 
器 内 所 存 的 值 与 时 各 器 内 存 的 值 是 那 一 个 较 大 ， 但 是 很 可 异 
的 ， 轩 积 器 内 的 值 也 随 之 被 破坏。 如 果 你 用 SUB R0 指 今 
将 使 得 累积 器 被 清 成 零 ， 而 SET R 0 ，0 一 样 也 可 以 做 到 
; 可 是 用 SUB R0 仅 估 用 一 个 位 元 和 组 而 SET R0 ，0 须要 
三 个 位 元 组 ， 所 以 用 SUB R0 可 节省 程式 所 估 记 懂 体 的 位 
蔷 。 


第 十 六 章 SWEET-1l6 简介 241 


CPR (比较 要 存 器 ) 可 以 用 来 比较 两 侧 覃 存 器 的 内 容 
,， 它 与 SUB 指 全 类似， 只 是 相 减 的 结果 是 放 在 RD 要 存 器 而 
不 是 累积 器 内 ， 所 以 黑 积 器 内 容 不 会 被 破坏 。 

Sweet-16 对 於 状态 要 存 器 的 检查 与 6502 及 其 他 计 
算 机 一 样 用 转移 ( BRANCH ) 指令 来 完成 ， 在 Sweet-16 
中 对 於 转 移 位 址 的 指定 与 6502 中 一 样 探 相对 位 址 方式 '( 
RELATIVE ADDRESSING )。 过 些 转 移 有 : 

BRA : 不 管 任 何 状 态 都 转移 到 指定 位 址 。 

BNC : 没有 进位 指标 破 激 发 时 转移 到 指定 的 位 址 。 

BIC : 进位 指标 被 激发 时 转移 。 

BIP :数值 检查 需 正 数 时 转移 。 

BIM : 数值 坊 负 数 时 转移 。 

BIZ : 雳 指 标 被 激发 时 转移 。 

BNZ : 数值 不 需 零 或 者 上 比较 结果 不 相等 时 转移 。 

BM1  : 数值 需 负 1 时 转移 。 

BNM : 数值 不 是 负 1 时 转移 。 

BSB : 转移 到 Sweet16 副 程 式 去 。 
而 所 有 的 转移 指 今 只 估 用 两 个 位 元 组 。 

以 上 过 些 转 移 指 令 中 ， BSB 指 今 须 要 我 们 加 以 讨论 一 
下 ， 以 加 深 各 位 印象 。 当 ”Sweet-16 “” 副 程式 玻 BSB 呼叫 
时 ， 我 们 须要 将 返回 的 位 址 资料 存 到 忒 一 个 地 方才 能 使 我 们 
由 副 程式 返回 时 则 到 正确 的 位 址 。 那么 到 底 败 设 存 到 那里 呢 
? 在 前 面 我 位 过 RC 杰 存 器 就 是 供 堆 登 器 指标 使 用 的 ， 
此 当 BSB 指 今 补 热 行 时 ， 我 们 返回 位 址 就 存放 在 堆 登 器 指 
标 所 指 的 位 址 内 ， 因 此 我 们 在 执行 . BSB 指 信之 前 就 须 先 将 
RcC 指 到 某 个 可 用 的 位 址 上 上， 不然 RC 有 可 能 随便 秽 指 而 破 
壤 了 你 的 程式 或 资料 ， 甚 至 系统 。 
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如 何 将 RC 指 到 某 个 可 用 的 位 址 上 昵 ? 过 可 以 使 用 SET 
指令 很 权 易 的 过 成 ( 过 与 6502 呼叫 副 程 式 先 用 LDX - 
#VALUE 指 今 屋 定 X 亚 存 器 一 样 ) ,但 是 就 像 前 段 所 提 的 
,位 址 的 愤 定 要 十 分 注意 不 可 以 造成 任何 的 错误 ， 否 则 破 壤 
程式 或 资料 事 小 ， 破 壤 了 系 梳 那 就 询 烦 了 。 

要 由 副 程式 返回 原先 呼叫 它 的 程式 在 “Sweet-16 ”系统 
中 是 用 及 SB 指令 而 不 是 6502 的 RTS 指令 ， 更 不 是 用 RTN 
各 今 的 。 RS B 指 今 只 估 用 一 个 位 元 租 的 记 屋 体位 冒 。 

晋 存 器 的 内 容 我 们 可 用 INC 或 DCR 指令 做 增加 1 或 者 
减 1 的 动作 。 而 过 两 个 指 今 对 杰 存 器 作 增 或 减 动作 所 产生 的 
状态 变化 也 会 在 状态 亚 存 器 中 反映 出 来 ， 而 供 转移 指令 作 章 
断 用 。INC 与 DCR 指令 都 是 单位 元 组 长 度 的 型 式 。 

到 目前 需 止 的 讨论 ， 我 们 可 以 发 现 赂 然 ” Sweet-16 ”所 
提供 的 算术 运 算 与 条件 检查 类 的 指令 路 然 较 6502 的 要 更 方 
便 处 理 16 位 元 的 资料 ， 但 观念 上 没有 什么 新 的 东西 。 而 

Sweet16 较 6502 好 的 地 方 不 只 限 於 过 些 而 已 ， 它 所 提 
供 的 指标 式 指令 与 资料 搬 动 能 力 才 是 它 的 特色 。 肖 使 得 它 能 
兔 使 某 些 动作 只 有 氟 使 用 一 个 位 元 长 度 的 指令， 但 在 6502 中 
公 须 要 8 到 16 个 位 元 组 的 指 今 林 能 完成 。 过 些 指令 大 都 使 
用 一 些 要 存 器 来 过 成 间接 位 址 方式 取 资 料 存 和 聚积 器 内 的 动 
作 。 在 下 面 我 们 就 会 一 一 地 讨 葵 它们 。 

首先 我 们 看 一 下 间接 方式 将 资料 由 记 司 体 搬 到 累积 器 的 
间 今 。 它 的 格式 如 下 : 


LDRG@Rn 


在 指 今 中 我 们 可 以 看 到 在 操作 元 Rn 前 面 有 一 个 ”@ ”符号 
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， 它 代 表 和 与 前 面 看 到 的 LDR Rn 探 取 不 一 样 的 方式 ， 将 资 
料 搬 到 累积 器 内 ， 过 有 什么 不 同 呢 ? 它 代表 著 问 接 位 址 方式 
而 且 具 有 下 述 的 特色 : 过 指令 本 身 是 将 8 位 元 的 资料 由 Ran 
指 到 的 记 民 体 位 址 搬 到 肝 积 器 中 后 面 的 8 位 元 上 ， 而 黑 积 器 
前 8 位 元 资料 则 改 成 零 ， 也 就 是 整个 累积 器 的 16 个 位 元 只 
存 由 Rn 所 指 位 址 上 记 民 体 的 8 位 元 资料 而 已 。 但 在 搬 完 以 
后， 指标 Rn 覃 存 器 逮 会 做 自动 增 1 的 动作 而 指 到 记 忙 体 中 
紧 接 著 刚 才 位 址 的 下 一 个 位 址 内 ， 基 上 类 指 今 一 般 称 直 自动 夫 
加 指 今 。 过 种 间接 方式 的 LDR 指 今 用 在 记 慌 体 中 资料 移动 
和 与 资料 寻找 的 动作 中 有 莫大 的 方便。 我 们 可 以 考虑 一 下 下 而 
的 例子 : 
START JSR SW16 
SET R1L ,8000 


SET R3,SFF 
LO0P LDR @Rn 


CPR RS :CHECK FOR SFF 

BNZ LOOP ;LOOP IF NOT FOUND 

RTN ;QUIT SWEET-16，DATA FOUND 
;ADDRESS LEFT IN R1 


过 程式 是 由 $8000 位 址 开始 找 SFF 资料 ， 找 到 资料 $FF 时 
，$FF 所 在 的 位 址 就 会 存 到 R1 查 人 存 器 中 。 

如 果 你 要 将 连续 两 个 位 元 组 欣 料 搬 到 肝 积 器 中 ， 你 可 以 
用 LDD 指 今 ， 它 是 接连 搬 的 指令 。 县 有 下 列 格式 : 


LDD @Rn 


它 先 根据 Rn 所 指 位 址 将 资料 先 搬 到 困 枉 器 后 而 8 个 位 克 ， 
然后 Rn 自动 如 1， 接 车 得 利用 Rn 作 指标 把 Rn 指 到 位 址 中 
的 资料 搬 到 时 稿 器 的 前 8 个 位 元 ， 最 后 Rer 渤 须要 和 白 动 加 
1 才 算 整个 完成 LDD @Rn 指 今 的 动作 。 运 也 就 是 把 Ra 指 
到 的 接连 十 个 记 仪 笨 上 的 资料 搬 到 果 积 器 中 的 方法 ， 而 Rn 
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也 自动 加 2。 同 样 的 状态 查 存 器 全 反映 出 资料 的 状态 。 
相反 的 ”Sweet-16 也 提供 了 将 资料 由 累积 器 内 烃 由 指 

标 Rn 使 用 间接 位 址 方式 将 值 存 回 记 懂 体 中 。 过 指令 就 是 先 

前 所 讨论 的 LDR 指令 相反 地 动作 。 它 具有 下 列 格 式 : 


ST0O @Rn 


它 是 根据 Rn 所 指 到 的 位 址 把 累积 器 中 后 8 个 位 元 资料 存 回 
， 然 后 Rn 芹 存 器 自动 加 1。 它 也 一 样 可 改 购 状态 要 存 器 内 
的 值 ， 反 映 出 累积 器 中 资料 的 状态 。 过 个 指 今 配合 著 LDR 
指令 的 使 用 可 以 很 方便 的 将 一 块 记 恰 体 上 的 资料 撤 到 另外 一 
个 地 方 去 。 下 面 就 是 将 $8000 位 址 到 $9000 位 址 上 资料 搬 
到 $30000 到 $4000 位 址 上 去 的 程式 : 


START ”JSR SW16 
MOVE SET R1L,$8000 ;SET UP POINTER REG #1 


SET R2.S$9000 ;SET UP FINAL VALUE REG 
SET R3,S3000 ;SET UP POINTER REG #2 
LooP 。 LDR @R1 ;GET DATA_ @R1 
STO _@R3 ;STORE @RS 
LDR R1 
CPR R2 ;DONE YETY 
BNC LOOP :ITF NO CARRY (I.E，LESS THAN) 
BIZ LOOP :ITF EQUAM 
RTN 
BRK 
END 


如 果 你 希 肇 将 果 积 器 8 个 位 元 与 生 8 个 位 元 资料 都 存 到 
记 凶 体 中 速 棱 责 个 位 址 上 时 ， 你 必须 要 用 STD 指令 ， 它 是 
做 与 LDD 相反 的 动作 。 它 首先 将 后 8 个 位 元 上 的 资料 存 到 
Rn 所 指 的 位 址 上 去 ， 然 后 Rn 自动 加 1 再 根据 Rn 芹 存 器 内 
新 的 位 址 将 资料 由 困 积 器 前 8 个 位 元 中 存 回 ， 最 后 Rn 渤 要 
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再 加 1 。 
最 后 我 们 讨论 一 下 “Sweet-16 ”的 三 俩 较 特殊 的 指令: 
POP，STP 与 PPD 。 POP 指令 的 格式 如 下 : 


POP @Rn 


它 是 " 先 ” 将 Rn 沽 1 然后 根据 Rn 所 指 的 位 址 将 资料 搬 到 
果 积 器 的 后 8 个 位 元 内 。 POP 指令 可 以 帮助 我 们 做 堆 登 器 
时 使 用 ,另外 还 能 用 来 写 ” 往 右 移 ” 的 程式 。 

STP 指令 则 与 POP 指 今 所 做 的 工作 相反 。 它 是 先 将 
Rn 减 之 后 再 根据 Rn 所 指 的 位 址 将 累积 器 中 后 8 个 位 元 
资料 存 回 。 

至 於 PPD 则 相当 帮 POP 指令 ,只 是 重复 做 二 次 POP 
动作 於 不 同 的 累积 器 避 分 。 它 首先 将 Ra 溅 1， 然 后 根据 
Rn 将 资料 由 记 饶 体 扩 到 困 积 器 前 8 个 位 元 内 ， 再 把 Rn 沽 1 
之 后 同样 的 把 资料 依据 Rn 所 指 的 位 址 搬 到 果 积 器 的 后 8 个 
位 元 ， 它 具有 下 列 的 规格 : 


PPD @Rn 


双 位 元 棚 的 堆 登 器 可 用 PPD 与 STD 指 今 来 处 理 资料 存 回 与 
取得 的 动作 。 POP ，STP 和 与 PPD 指 今 均 是 单位 元 租 的 指 
邻 ， 而 且 当 过 些 指 今 热 行 完 合 ， 进 位 指标 就 会 彼 饮 复 成 原始 
状态 。 其 中 POP 指 今 不 管 减 1 动作 如 何 做 ( 做 多 少 次 ) 至 
少 都 会 使 Rn 内 值 储 正 值 ，PPD 和 与 STP 动作 完成 后 累积 器 
内 的 值 对 状态 手 存 器 产生 影响 ( 激发 适当 状态 位 元 ) 。 
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SWEET-16 硬 体 的 要 求 
( SWEET-16 HARDWARE REQUJIRENWENTS ) 


所 有 ”Sweet-16 ”的 百 存 器 都 是 利用 雳 页 记 懂 体 空 间 采 
模 所 的 ， 其 中 R0 对 应 著 $0 与 $1 位 址 ，RI 对 应 著 $2 与 
$3 如 此 一 个 要 存 器 用 二 个 记 司 体位 址 来 模 据 ， 所 以 零 页 记 
伍 体 前 32 个 位 元 组 ( 由 $0 到 $31 ) 都 有 著 特 殊 用 途 ， 我 们 
在 写 程 式 时 要 注 理 不 可 导 用 这些 位 鞭 而 造成 错误 ， 过 32 个 
位 址 也 可 以 供 一 般 系 杭 与 Sweet-16 ”系统 传 汉 资 料 用 。 所 
有 6502 要 存 器 在 进入 Sweet-16 时 都 会 被 保留 存在 某 个 特 
定 的 地 方 ， 而 等 到 由 “Sweet16 ”回来 时 就 会 自动 存 回 而 恢 
复 成 原先 状态 。 最 后 一 点 要 注 显 的 是 由 一 般 系 统 进 入 Swe- 
et-16 “系统 前 的 状 熊 须 处 於 二 进位 运算 状态 否则 会 产生 一 
些 邻 你 感到 奇怪 的 现象 。 
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第 十 七 章 
程式 的 侦 错 与 除 钳 


一 般 来 况 ， 除 非 是 你 寓 的 程式 十 分 简 昌 ， 否 旭 通 常 部 须 
要 更 正 鱼 训 而 吉 到 你 当初 设计 程式 的 要 求 。 LISA 是 一 个 交 
款式 租 合 医 刘 翻译 器 ( Intefractive asSsembler ) 
， 它 可 以 帮助 我 们 在 发 现 程式 中 文句 桔 构 错误 ( syntax 
errors “) 时 提供 很 大 的 帮助 ， 而 节省 许多 时 间 。 但 是 它 
蔚 非 任何 文句 千 构 错 识 都 能 找 出 ， 仍 有 一 些 较 简 单 的 诺 席 优 
法 侦 测 出 ， 须 要 我 们 另外 花 少许 时 间 找 出 来 更 正 。 英 正 府 烦 
的 销 训 问题 是 出 在 程式 中 险 藏 车 选辑 鱼 避 (iogical 
errors “)。 一 般 常 见 的 愤 辑 错误 有 : 在 执行 完 十 进位 到 
算 后 启 记 将 十 进位 运算 旗 标 恢复 ， 或 者 是 将 资料 当成 径 式 执 
行 ， 甚 至 在 进入 一 个 副 程 式 之 初 眠 也 将 蔚 存 器 内 穴 存 在 某 一 
个 记忆 体 区 域 。 不 像 BASIC 请 昔 当 程式 有 钳 时 ， 在 某 些 情 
形 下 执行 会 停止 下 来 ， 背 且 印 出 一 些 警告 的 消息 。 6502 和 粗 
合 语言 与 一 般 租 合 匡 否 一样， 照常 往 下 执行 ， 一 直到 不 能 执 
行 需 止 或 遇 到 你 程式 中 楼 求 停止 执行 的 指 今 坑 止 ， 而 过 时 内 
你 程式 有 钳 可 能 造成 一 些 销 得 十 分 廊 绪 的 答案 或 者 将 一 些 记 
介 体 中 的 资料 与 指令 输 摧毁 了 其 至 连 磁 碟 机 内 存 的 资料 也 济 
不 幸 。 
所 幸 APPLE 1 微 算 机 提供 了 攻 助 我 们 在 热 行程 式 中 间 ， 
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找 错 落 且 更 正 的 工具 。 其 中 最 重要 的 是 Apple 的 监督 程式 
。 它 配合 著 估 2 人 记 司 体 的 程式 可 以 做 到 程式 模 气 的 工作 ， 
将 要 人 存 器 与 记 懂 体 内 的 资料 题 现 出 来 修 正 钳 费 ， 同 时 也 可 
以 搬 动 记 锰 体内 的 资料 阔 做 检查 的 工作 。 有 了 它 你 可 以 及 时 
修正 钳 费 的 地 方 后 再 移入 检查 程式 。 除 了 它 之 外 ， 另 外 
LISA 也 另 提供 一 些 供 连 和 线 ( On-Line “:) 系统 用 的 侦 鲁 
程式 。 


“pcEeuccainG” ， 


人 号 


GO 一 指令 (G) -~( GO COWNAND (G) ) 


GO 指令 除了 提供 我 们 在 执行 程式 时 须要 的 起 动 命 今 外 
， 也 可 以 供 我 们 债 钳 时 使 用 。 过 是 因 垮 可 将 我 们 的 程式 视 坑 
监督 程式 的 一 个 剧 程式 ， 而 GO 指令 就 相当 於 JSR 指 今 。 
等 到 程式 执行 到 RTS 指 今 时 就 会 由 我 们 的 程式 返回 监督 程 
式 内 。 也 就 是 监督 程式 是 主 程式 ， 而 由 GO 指 今 声 明 开 始 执 
行 的 程式 是 监督 程式 的 副 程 式 。 例 如 800 G 代表 由 800 位 鞭 
开始 执行 ， 而 800 开始 的 程式 就 是 一 个 监督 程式 的 副 程式 ， 
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而 在 过 副 程式 层 执 行 中 遇 到 RTS 就 会 使 得 执行 回 到 监督 程 
式 中 。 
过 对 我 们 侦 错 到 底 有 什么 用 处 呢 ? 我 们 可 以 将 我 们 所 有 
的 程式 分 成 一 个 个 副 程 式 ， 而 分 别 要 求 每 个 破 执 行 ， 然 后 检 
查 执 行 的 结果 ， 看 一 下 是 那 一 个 出 了 问题 ， 然 后 对 锥 出 钳 的 
程式 加 以 仔细 检查 。 但 是 过 种 侦 钳 方式 只 能 用 在 副 程 式 是 独 
立 的 ， 不 须 接 受 别 的 副 程 式 传 迁 资料 时 才能 工作 。 例 如 你 有 
位 在 $980 ，$AC0 与 $1000 三 个 地 方 的 副 程 式 ， 当 你 由 你 
的 主 程式 ( 监督 程式 的 副 程 式 ) 开始 执行 时 ， 发 现 产 生 错 红 
。 过 时 你 就 分 别 利用 900G, ACOG 与 1000G 三 次 命令 分 别 
执行 你 的 三 个 副 程式 ， 再 一 个 个 地 找 出 毛病 。 如 果 你 的 程式 
须要 资料 相近 传 办 则 …… 


暂 存 器 与 让 慑 体 的 起 始 值 
(INITIALIZING REGISTERS AND MENMORY ) 


除了 最 简单 的 副 程式 之 外 ， 一 般 副 程式 都 须要 一 些 资料 
的 传输 ， 由 别 的 副 程式 或 者 主 程式 得 到 执行 所 甩 的 资料 。 一 
般 来 设 ， 传 输 小 笔 的 资料 都 是 利用 要 存 器 ， 如 果 大 笔 资 料 就 
利用 记 人 镶 体 内 某 一 二 位 址 ， 然 后 将 资料 起 始 位 址 利用 堆 登 器 
( STACK ) 或 杰 存 器 或 某 指 定位 址 传输 ， 而 违 到 传 适 资料 
的 目的 。 而 在 利用 GO 崩 仿 分别 执行 每 个 副 程式 而 侦 销 前 我 
们 最 好 先 要 知道 资料 传 桩 的 内 容 ， 或 者 将 资料 改 成 正确 的 型 
式 ， 以 便 能 兔 确定 传 入 的 资料 是 否 正 确 ， 而 能 判断 不 是 资料 
有 问题 而 是 程式 有 问题 。 

利用 control- 了 上 指 售 我 们 可 以 使 得 监督 程式 将 全 部 6502 
杰 存 器 的 内 容 显现 出 来 。 因 此 在 发 出 GC 指 今 之 前 我 们 可 以 
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可 以 先 打 入 control-E 再 打 return 而 在 生 光 幕 上 得 到 类 似 下 
例 的 结果 : 


A=0A X=FPF Y=D8 P=B0 S=G8 


供 我 们 先 检查 传 入 副 程 式 的 值 是 多 少 。 但 如 果 我 们 发 现 资料 
不 对 而 须 更 正 时 怎 友 办 呢 ? 我 们 可 以 在 资料 显现 之 后 打 一 个 
引号 : 接著 略 入 新 的 资料 ， 如 此 便 可 以 修正 杰 存 器 内 的 资料 
了 。 下 面 就 是 一 个 修正 A 要 存 器 ( 果 积 器 ) 内 容 的 例子 : 


和 范例 : 


s*control- 吕 
A=0OA X=FF Y=D8 P=B0 二 
CT 

- Control- 叱 


A=-Cl X=FF Y=<D8 =80 S=F8 


如 果 你 不 想 修 正 A 芹 存 器 内 容 ， 而 只 想 修 正 S 要 存 器 内 
容 时 则 怎么 办 电 ? 甚至 只 想 修 正 其 中 一 部 分 芹 存 器 的 内 容 而 
不 改 恋 其 他 要 存 器 时 又 设 怎么 办 呢 ? 其 实 第 一 个 问题 就 是 第 
二 介 问 题 的 一 个 例子 ， 我 们 举 到 个 例子 来 解释 如 何 做 到 种 修 
正 的 工作 。 我 们 只 须 将 每 个 要 存 器 希 肇 的 值 按 答 光 幕 次 序 排 
好 而 每 个 析 存 器 值 分 开 过 入 冰 且 一 个 空白 来 分 并。 对 於 不 更 
正 的 当然 就 是 原先 值 ， 而 要 改 释 的 便 是 新 值 了 ! 下 面 就 是 将 
要 存 器 值 更 正成 FF 的 例子 : 
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和 范例 : 


*Control- 忆 

A=Cl X=FFY=D8 P=B0 S=F8 
*:CL FFR D8 BO FP 

“control- 忆 


A=Cl X=FPF Y=D8 P=-B0O S=FF 


下 面 是 一 个 利用 上 面 所 讨论 的 方法 检查 一 个 位 在 $FDF0 
开始 的 将 存在 A 要 存 器 内 资料 显现 於 答 光 幕 上 程式 的 例子 
( 其 中 C1 是 字符 A 所 对 应 的 硒 ，C2 是 字符 B 对 应 的 码 ) 


COntrol- 忆 
A=0A X=FR Y=D8 P=B0 S=F8 
4 


*FDFOG 
人 


scCoOntrol~ 弟 
.AmeCl X=FRF Y=D8 P=B0O S=F8. 
4 C2 


*FDFOG 
B 


scControl- 忆 etc,,， 


如 果 你 的 程式 由 让 人 憾 体 传输 资料 ， 则 如 何 将 资料 放 到 训 
愉 体 中 电 ? 过 和 与 先前 的 修正 村 存 器 内 容 的 方式 有 一 点 点 不 同 
。 肖 里 你 只 须 先 按 位 址 接著 是 冒号 ， 再 接著 便 是 一 个 个 资料 
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， 资料 间 仍 用 空白 分 隔 。 下 面 就 是 个 例子 : 
和 范例 : 


*F0:00 80 CO0 


*8006 


它 假定 你 程式 所 甩 的 资料 放 在 $F0 ，$F1 与 $SF2 内 而 经 由 
它 将 资料 00,80 与 C0 分 别 放 到 上 述 三 位 址 内 。 然 后 你 便 可 
用 G 0 指 今 执 行 你 的 副 程 式 ， 看 一 下 程式 是 否 能 用 过 些 资料 
产生 你 预料 中 的 正确 答案 ， 刊 定 程式 是 否 正确 。 

以 上 的 步 贡 不 一 定 只 用 在 安排 资料 方面 也 可 以 用 来 办 
一 些 试验 程式 的 机 器 码 ( ”machine code 。 )。 例 如 你 想 
检查 位 於 900 开始 的 PRINT 程式 是 否 正常 ， 而 将 下 列 程式 
( 用 以 呼叫 _PRINT 将 ABC 在 和 光 幕 上 打出 ， 藉 以 检查 
PRINT 程式 是 否 正常 工作 ) 。 


JSR 和 900 
ASC "ABCY" 


所 对 应 的 机 器 码 壕 入 1000 位 址 ， 然 后 执行 它 检查 结果 。 


*1000:20 00 09 cl c2 C5 00 60 


“1000G 
ABC 
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修正 指令 码 (补正 ) 
( MODIFYING INSFRUCTION CODE (PATCHING) 


.在 LISA 被 使 用 以 前 ， 修 正 一 个 程式 地 工作 通常 都 十 分 
繁 玉 ， 而 使 得 大 邵 分 的 程式 员 只 能 根据 正确 的 码 修正 某 个 鱼 
讽 指 令 ， 但 如 此 做 程式 上 只 须要 具备 一 些 额 外 的 知 诚 才能 很 正 
确 地 做 更 正 的 工作 不 至 於 念 改 依 错 。 LISA 是 方便 了 许多 但 
仍然 稍微 嫌 麻 烦 了 些 ， 因 和 念 修正 完 一 各 分 就 须 重 新 再 翻 将 一 
次 ， 而 对 有 些 情 形 过 是 没有 必要 的 。 

某 些 情 形 下 直接 地 更 正 机 器 码 仍 是 最 快 的 ， 过 些 情形 有 
: 将 相同 隐藏 式 ( ”implled  ) 位 址 方式 的 指令 做 构 更 ( 如 
敌 DEX 改 成 DEY ) ， 要 将 某 段 指令 除 去 ( 将 指 邻 改 成 NOP 
指令 ) ， 或 要 加 上 BRK 指令 帮助 侦 错 。 其 中 后 面 两 种 情形 
是 最 优 常 用 的 。 

.NOP 指令 的 作用 有 两 种 : 1 ) 时 间 延 还 用 (2 取代 程式 
中 某 些 不 想 用 的 指 邻 。 NOP 的 机 器 码 需 $EA“， 你 最 好 能 记 
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住 记 。 而 更 正 妈 局 体 中 指 今 成 NOP 最 快捷 地 办 法 就 是 利 浊 
前 面 所 蘑 的 记 人 慌 体 修正 指 今 ( < addr> : < data> ) 来 更 正 
某 个 位 址 上 的 指 今 。 例 如 现在 你 希 肇 将 $ 890 位 址 上 的 指 今 
PLA 除 去 则 可 以 使 用 雨 个 方法 : 
(利用 LISA 更 正 原 始 的 程式 然后 再 重新 恶 译 得 到 新 的 更 正 
过 的 机 器 码 ， 但 如 此 做 差不多 要 花费 你 一 分 狂 的 时 间 才 能 做 
完 , 但 如 果 你 知道 所 要 除去 的 PLA 指 今 所 在 的 位 址 ( $890 
) 就 可 以 使 用 另 一 种 较 人 快 的 方式 ; (2) 利 用 809: EA 的 修正 
指 今 直接 梳 入 PLA 指令 修正 成 NOP 指 今 而 达到 除去 多 890 
位 址 上 PLA 指 今 的 目的 ， 就 可 以 立即 重新 执行 新 的 更 正 程 
式 。 但 是 别 读 了 等 下 原始 程式 相对 地 也 须要 修正 一 下 ， 而 且 
如 果 须 要 除去 的 指 分 有 一 个 到 两 个 位 元 组 ( byte ) 的 操作 
元 位 址 邵 分 也 所 一 借 改 成 NOP ,不 能 只 改 机 器 码 导 分 。 
在 对 不 是 单独 的 完整 副 程式 做 侦 销 时 ， 我 们 通常 用 如 定 
停止 点 方式 使 得 执行 到 那 指 今 时 ， 会 回 到 长 督 程 式 而 暂停 ， 
使 我 们 可 以 检查 一 些 重 要 的 资料 ， 看 看 内 容 是 否 合乎 我 们 的 
要 求 。 而 遭 个 用 以 设 定 停止 点 的 指令 是 BRK 指令 ， 我 们 只 
须 将 程式 中 希 肇 停止 位 置 的 指令 改 成 BRK 指 今 便 可 以 了 。 
但 因 : (0 正常 指 今 疏 BRK 指令 取代 ，(2) 堆 登 器 已 伞 破 壤 而 
无 法 用 和 骨 标 由 设 定 停止 点 往 下 执 行 ， 是 使 用 过 个 指 今 的 缺点 
。 而 且 不 是 所 有 的 APPLE1 微 算 机 都 可 以 执行 BRK 指 今 
在 Lazer 系 梳 中 有 个 TRACE/ 65 的 程式 可 以 攻 助 我 
们 检查 程式 的 错 就 、 更 正 钳 欢 。 它 是 个 交 款 式 的 侦 错 工具 ， 
它 提供 APPLE 1l 一 个 类 似 CP/M 系 坑 中 侦 错 程式 ( DEB- 
UGGER ) 的 功能 。 它 万 许 使 用 者 控制 著 程 式 ， 一 个 指 今 一 
个 指令 的 执行 ， 兹 且 在 执行 完 一 个 指 今 之 后 能 锡 检 查 所 有 杰 
存 器 的 内 容 。 它 也 万 许 使 用 者 设 定 一 些 没有 破 十 性 的 停止 点 
而 尤 许 使 用 者 有 能 力 在 司 光 幕 上 将 机 器 码 相 对 的 指 今 符号 虹 
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示 出 来 。 一 般 而 言 TRACE/655 可 以 减 少 我 们 一 半 的 侦 钳 时 
间 o 1 

要 用 TRACE/65 则 你 必须 用 LISA 翻译 你 放 在 $ 800 
与 $47FF 区 域 中 间 的 程式 。 一 旦 翻 耕 完成 ， 而 机 器 码 也 在 
指定 位 址 放 好 之 后 ， 和 莹 光 幕 上 会 出 现 一 个 ” ) ”符号 ， 你 接 
著 按 下 一 个 工 字 再 按 RETURN 键 。 党 时 TRACE/65 ”就 会 
向 你 要 求 程式 的 起 始 位 址 ; 等 你 桩 入 过 资料 ， 它 就 会 根据 过 
位 址 开始 执行 ; 在 执行 的 时 候 ， TRACE/65 会 将 指 今 打出 
在 散光 幕 上 ， 如 果 你 想 要 停止 执行 下 个 指 今 你 可 以 按 space 
键 暂 停 执 行 。 如 要 炎 午 就 再 按 space 即 可 。 

TRACE/65 “的 操作 可 分 成 两 种 状态 : (执行 状态 与 (9) 
参数 状态 。 在 执行 状态 时 ， 程 式 被 热 行 而 且 被 显现 於 蒙 光 幕 
上 。 而 在 参数 状态 你 可 以 设 定 停止 点 ， 修 正 记 愉 体 内 资料 与 
归 存 器 内 容 ， 冰 且 可 以 由 参数 状态 返回 到 执行 状态 和 楼 炉 执 行 
程式 。 

要 进入 参数 状态 ， 我 们 可 以 按 一 下 空白 键 然 后 输入 一 个 
P 字 ， 即 可 使 执行 停止 下 来 然后 进入 到 参数 状态 。 过 个 时 候 
董 光 幕 会 出 现 所 有 参数 状态 下 可 以 使 用 的 指 今 与 它们 的 简单 
解释 ， 过 可 攻 助 你 使 用 参数 状态 的 指 今 。 如 果 你 愤 择 按 ”A 
” 键 ， 则 就 是 愤 择 将 你 程式 中 被 执行 的 指令 显 现在 租 光 幕 上 
， 供 你 决定 或 参考 用 。 如 果 你 不 选择 过 逢 显现 的 状态 则 程式 
进行 的 步 你 将 无 法 由 敬 光 幕 得 知 ， 但 如 此 执行 的 速度 较 旺 
现状 态 下 孝 行 的 速度 要 快 上 100 售 。 因 此 在 不 氧 要 检查 的 邵 
分 你 可 以 用 下 面 讨论 的 停止 点 设 定 方 式 要 它 自己 独立 执行 ， 
而 到 停止 点 时 再 改 成 显现 状态 而 将 内 容 显现 以 确定 问题 的 疗 
结 所 在 ， 如 此 可 节省 不 必要 的 时 间 汇 费 。 

除了 ”A ”之 外 ， 参 数 状态 淋 有 ”B ”的 吐 择 提供 给 你 
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，”B ” 钛 态 是 用 以 必定 一 些 停止 点 ， 也 就 是 慑 定 一 些 位 址 
使 计算 机 执行 到 过 些 位 址 时 能 锡 杰 停 下 来 ， 过 时 使 用 者 便 可 
检查 一 下 资料 是 天 正确， 以 确定 程式 是 否 有 销 ， 铺 在 那里 。 
与 先前 讨论 的 BRK 指 今 不 同 ， 它 可 在 检查 完 之 后 由 停止 点 
再 往 下 未 行程 式 。 当 你 按 下 ”38 ” 键 则 TRACE/65 会 向 你 
要 停止 点 的 所 在 位 址 ， 而 一 次 最 多 可 决定 四 个 停 赴 点 答 
TRACE/65，” 系 炳 ， 等 下 执行 时 在 遇 到 过 些 你 设 定 的 停止 点 ， 
时 便 会 停止 执行 等 待 你 下 一 步 的 要 求 。 

”C ” 键 功用 在 於 一 旦 你 不 小 心 淡 按 了 "”P ” 键 而 进入 
参数 状态 ， 但 你 不 想 做 任何 动 就 风 开 过 种 状态 时 使 用 。 它 会 
使 你 的 回复 到 原先 避 按 ”P ” 键 前 的 状态 。 

”D” 提 供 你 在 检查 完 你 希望 检查 的 程式 部 分 后 ， 想 售 
止 程式 的 执行 ， 允 开 债 错 状 态 时 使 用 。 

先前 所 计 闪 的 都 是 检查 程式 在 才 行 中 的 情形 ， 但 如 何在 ， 
狐 现 钳 光 时 修正 它 ， 而 攻 程 式 能 锡 依 照 正确 的 方式 往 下 专 行 
,以 使 移 炉 检查 程式 下 面 的 孝 份 是 否 有 钳 ， 而 不 撩 重新 修正 
程式 ， 翻 绎 修正 后 程式 然后 再 执行 。 过 样 做 太 贰 时 间 了 1! 

TRACE/65 ”提供 了 " $ ”指令 ， 尺 我 们 在 参数 状态 下 能 够 
修正 资料 内 容 而 不 须 做 上 述 的 步 县 。 而 用 ”$ ”修正 记 司 体 
中 指 今 或 者 资料 黄 至 杰 存 器 内 的 资料 可 以 用 ”$< 10C> : 
_< data> ”方式 ， 要 修正 暂 存 器 的 内 容 则 可 利用 修正 雳 页 记 
-人 惟 中 $DA 到 $E9 位 址 的 内 容 而 过 到。 下 列 是 这 些 位 址 与 暂 
存 器 对 应 的 关 傈 : 

PC  :SDA，$D8 
XREc:S66 
YREG :SEE7 


PSW :SEE8 
SP  :S$E9 
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除了 上 述 的 $DA 到 $E9 位 址 外 ， 零 页 记 凶 抽 内 容 在 你 使 用 

TRACE/65“ 系 坑 侦 钳 时 只 准许 你 修 和 $D6 到 $D9 与 $EA 
到 $FEF 的 位 苇 ， 也 就 是 整个 需 页 记 羽 体 中 只 准许 你 修正 
$D6 到 $FF 的 内 容 ， 其 他 一 概 不 万 许 ， 否 则 会 有 今 你 无 法 
理解 的 错误 出 现 。 


程式 侦 错 例子 ( PRAOGRAWN DEBUGGING SESSION ) 


我 们 看 下 面 记 要 讨论 的 例子 就 是 下 列 的 程式 : 


START : 


LD 
LOOP 。 LDA MSG ,X 


BNPE LOOP 


MSG ASC "THIS IS A TEST 
00 


过 程式 中 有 个 非常 重大 的 错 驳 ， 那 就 是 在 利用 索引 便 址 方式 
( INDEX ADDRESSING ) 拿 资料 放 到 要 存 器 A 时 ， 索 
引 杰 存 器 ( INDEX REGISTER ) 的 内 容 应 是 渴 增 的 ， 也 
就 是 第 5 个 指令 DEX 朵 是 INX 。 否 则 就 会 有 一 大 堆 文物 瑕 
印 出 来 ， 而 与 当初 要 求 印 出 ”THIS IS A TEST ”不 
同 。 那 你 应 设 如 何 使 用 TTRACE/65 “来 找 那个 错 避 呢 ? 首先 
你 氧 用 DOS 指令 中 的 ” BLOAD PROGRAM . ”将 你 的 程 
式 放 到 记 司 体 中 ， 然 后 在 执行 前 先 设 定 停 止 点 ， 否 则 等 下 程 
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式 便 会 从 头 执 行 到 尾 ， 如 此 根本 无 法 帮 你 技 出 钳 浆 。 停 上 点 
要 贰 定 在 那 却 呢 ? 当然 对 於 监 督 程式 中 COUNT 程式 布 须 术 
查 ; 依照 我 们 先前 讨论 的 一 个 个 副 程式 分 别 检查 的 原则 ,我 
们 设 定 在 $FDED ， 也 就 是 将 查 存 器 A 的 内 容 印 出 的 副 程式 
的 第 一 个 指令 位 址 ， 如 此 可 使 我 们 在 进入 执行 过 个 副 程 式 之 
前 先 确定 资料 加 入 是 否 正确 。 所 以 我 们 先 按 ”P ” 键 进 入 参 
数 状 态 ， 然 后 披 ”B ” 键 要 求 太 入 停止 点 。 由 於 裁 入 停止 点 
的 数目 可 以 有 四 个 ， 所 以 我 们 必须 指出 现在 输入 的 第 兹 个 。 
假设 是 第 一 个 旭 按 "” 1 ”然后 TRACE/65 会 向 你 要 求 位 址 
,过 时 你 就 豆 以 桩 入 FDED ， 然 后 便 可 以 开始 执行 你 的 程式 
了 。 
要 ”TRACE/65 开始 以 侦 钳 状态 执行 你 程式 ， 你 必须 按 
下 "T，” 键 ， 然 合 TRACE/65 会 向 你 要 开始 执行 的 位 址 ， 
一 旦 你 办 入 之 后 ， 热 行 便 开始 。 由 於 你 先前 设 定 FDED 是 停 
止 点 所 以 在 执行 到 FDED 位 址 内 的 指令 前 TRACE / 65 会 停 
止 执行 ， 然 后 打出 下 列 消 息 著 你 确定 现在 程式 是 停 在 那 一 个 
停止 点 ， BREAK POINT ENCOUNTERED AT 
LOCATION S$nnnn “ 东 且 要 存 器 内 容 也 会 展现 在 签 光 幕 
上 ， 你 可 以 发 现 要 存 器 A 的 内 容 坑 " T， 的 码 ( $DA ) ， 
过 就 确定 到 目前 坑 止 程式 热 行 的 十 分 正常 。 下 面 我 们 不 希望 
位 於 $SFDED 的 监督 程式 中 COUNT 程式 被 执行 ( 因 乱 它 证 
然 是 系 业 一 部 分 则 必定 程 过 厂商 侦 错 通过 ， 所 以 不 须要 考 卡 
钳 出 在 COUNT 中 ) ， 因 此 我 们 利用 按 ”P ” 键 进 入 参数 状 
能 ， 然 后 利用 “$DA:58FF 修正 程式 计数 器 ( PC ) 内 容 
它 指 到 COUNT 中 RTS 指令 ， 回 到 我 们 的 程式 邵 分 。 但 如 
何 回来 多 ? 只 要 在 修正 程式 计数 器 ( P C ) 之 后 按 "”C ” 键 
六 程 式 再 机 棱 热 行 ， 过 时 它 烃 由 第 6 个 指 今 回 到 程式 再 执行 
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程式 一 次 ， 然 而 过 作 在 停止 点 停止 时 杰 存 器 A 内 容 就 不 是 你 
所 希 刻 的 了 ! 如 此 做 厅 次 下 来 相信 你 便 可 找 出 DEX 指令 的 
钳 误 而 更 正 。 

过 例子 题 示 了 我 们 在 侦 错 时 ， 可 以 使 用 停止 点 方式 跳 允 
不 会 有 错 的 程式 而 直接 到 有 疑问 如 分 的 起 始 地 方 停 止 下 来 ， 
慢 盆 的 检查 程式 过 个 有 疑问 的 邵 分 。 


附 儿 A 
APPLE I 的 表格 图 


半 ” 论 


在 本 附 欠 中 我 们 列举 出 使 用 APPLET 计算 机 所 要 用 到 的 一 些 才 
格 、 图 。 利 用 过 些 可 帮助 读者 您 在 使 用 APPLE II 上 时， 能 方便 且 有 效 


CTRL SHIFT 8Both 


Alone CTRL 
! | 
2 1 
3 林 了 
4S K 
0% EL 
60& M 
入 和 
8 O 
9) $89 SB9 SA9 SA9 P@ 
所 SBA SBA SAA SAA . Q 
:十 $8B SBB SAB SAB R 
,< SAC SAC SBC SBC S$ 
~=~”~ | SAD SAD SBD SBD T 
.> SAE SAE SBE SBE U 
/7 SAF SAF SBF SBF V 
A W 
B X 
C Y 
D Z 
E 这 
引 F 人 
C 


所 有 之 值 均 镶 十 六 和 进 佳 制 ， 十 进 制 值 可 从 玫 三 获得 
A-1 


十 淮 制 : 128 .144 168 176 192 2988 224 248 
十 六 进 制 : $811 $911 S$A1J S$8B1 SC SDH $EH S$FgY 


乡 $9 nul die 全 @ .是 p 
1 $1 soh dcl ! 1 人 人 刀 
2 $2 stx dc2 ]/ 2 也 有 b 
了 $3 etx dc3 徘 3 C S C 
4 $4 eot dc4  $ 4 D 工 d 
enq nak 络 5 节 U 
ack Syn' 外 6 下 V { 
bel etb 1 7 C W g 
bs can ( 8 HH xxX An 
ht em  ) 9 工 Y i 
lf sub 率 J L 人 】 
vt esc 十 人 [ k 
人 
cr gs = M 
so IsS > N v 
sj us /9 0 - 


表 中 两 个 或 三 个 小 写字 有 母 的 组 合 是 标准 ASCII 控制 字 元 的 熔 
写 。 巧 不 是 麦 中 所 列 的 所 有 字 元 均 可 由 APPLE 键 般 产 生 , 龙 其 是 才 中 最 
人 
(后 余粮 ) ，--( 底 粮 ) 及 控制 字 元 ”fs us“ 及 ”rub 

麦 中 任何 一 0 元 所 对 禾 位 置 
之 上 方 及 左 方 十 他 或 十 六 进 值 相 加 的 结果 “ 


APPLE 视频 显示 器 


APPLE 视频 是 示 器 
芽 示 方式 : 记 司 器 影射 入 系统 RAM 
显示 形式 : 正文 ， 低 解析 度 给 图 ， 
高 解析 度 给 图 
正文 容量 : 960 字 元 ( 24 横 列 ，40 统 行 ) 
字 元 方式 : 5 x 7 和 阵 
字 雹 组: 大写 ASCIL， 共 64 个 字 元 
字 元 形式 : 正常 ， 相 反 ， 内 煤 
给 图 能 力 : 1920 方块 ( 低 解析 度 ) 
即 分 仿 40 x 48 阵 列 
53760 点 ( 高 解析 度 ) 
即 分 需 280 x 192 阵列 
颜色 数 : 16!( 低 解析 度 ) 
6 ( 高 解析 度 ) 


图 1 显示 了 APPLE 之 题 示 幕 在 正文 模式 下 记忆 器 之 分 配 图 ， 
印 显示 幕 上 每 个 字 元 的 相 半 内 记 司 器 位 址 。 


表 8 低 解析 度 给 图 色彩 
十 进 制 ”十 六 进 制 色 彩 | 十进制 十 六 进 制 


表 7 


ASCII 显 示 幕 字 元 


144j1168 176 192 2981224 


$991$A8 $BY $C8 8$DY | SE5G 


96 1121128 


88 


64 
十 六 进 制 $Vg8 $18 $28 8$38| $48 $59 $68 $78| $89 


巡 
CC 
惟 


ASCII 显示 幕 字 元 租 


才 7 


图 唱 尹 装 当 吏 交工 工 图 


g9907 9QLS 
ZL8L 054 
pb 上 9Q9S 
9191 059S 
88?1 9Q5 
g961 055S 
ztz1 gatS 
ygIL 059S 
8961 8VLS 
z68L 8ZLS 
?8LL 8V9S 
9LS1 8z9S$ 
gp?L 8V5S 
gztL 875S 
z61L 8VYS 
?991 8ZtS 
bz61 9848 
zZ6LL 904S 
991 9898$ 
965S1 909S 
8gp[ 985S 
68CT 065S 
ZSILL 989S 
?yzgL 90 


各 只 汪 生 六 稀 闪 半生 
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图 足 才 器 如 开平 讲 图 膨 虱 居 规避 z 图 


0QLS 
g9L$ 
6Q9$ 
099$ 
0Q9$ 
0999 
06QGtpS 
089?$ 
8YLS 
85L9 
8V9$ 
8C93 
8V95S 
8Z9$ 
8Y 色 
8ctbS 
08L$ 
004$ 
089$ 
009 
089$ 
004$ 
08?yS$ 
90?S 


宇 区 区 避 是 并 XRDCX2SESEFAEESEEe 
| 
is rd ps ko 一 瑟 一 一 下 二 二 
人 久生 总 癌 二 省 而 口 万 部 > 二 三 二 六 区 基 总 二 汪 委 着 呈 科室 汪 区 闪闪 生 交 科 关 半 夺 旺 
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图 晶 尹 凌 当 庄 强 夫 者 和 8 图 


o05 8 站 [下 0 
08iS ?ytI9L 8557S 


ol 8SC 0GzzS 
wb4lS 9egy[ 0572 
9%.W5 7Lef[[ 9Qq1zS 
389 gg] 6517S 
gps ?ol 090Q67S 
9%es 6 人 6567S 

09: ea 8vfzS 
8Zf2 
8VIZS 
8ZZZS 
8vi2 
8Z12 
8YbZS 
8Z6ZS. 
88f7S 
905 
98ZzzS 
90725 
6817ZS 
0017S 
0807S 
80675 


汪 站 丰 交 县 全 和 三 
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在 每 方块 中 欲 得 任何 位 元 租 的 位 填 ， 将 亦 位 元 组 之 横 列 方 二， 煌 行 


方块 及 在 设 方 志 之 位 置 相 加 。 


监督 程式 命令 炉 辕 


检视 记 慑 器 内 含 
{ 位 址 ]} 
{ 位 址 1 } . { 位 址 2 } 


RETURN 


改 释 记 避 器 之 内 含 
{ 位 址 } : { 数值 }{ 数值 


移动 伍 比 较 
{ 目的 地 }) < { 氛 始 ) .! 
最 纵 ] M 。 


{ 目的 地 } < { 租 始 } . ! 
及 图 ) YV 
臣 带 之 资料 储 在 


检 壤 一 个 位 填 之 内 含 。 
显示 所 有 位 於 { 位 址 1 } 及 { 位 址 
2 } 之 间 的 所 有 内 含 。 

显示 最 后 开 谨 位置 之 后 的 内 含 ， 最 
多 8 个 位 置 。 


将 数值 存 入 以 { 位 址 } 坑 开 始 的 速 
和 炉 位 医 内 。 

将 数值 存 入 以 下 次 可 改 思 位 般 坑 天 
始 的 连 术 位 仍 内 。 


将 { 眉 始 } . { 最 和 纵 } 和 范围 内 的 资 


料 抄 至 以 { 目的 地 } 坑 开 始 的 夭 加。 


比较 { 毛 始 } : (最 和 熔 } 和 与 以 { 目 
的 地 } 志 最 始 之 记 鱼 器 内 含 。 
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(得 始 ) .{ 最 攻 ) 册 


{ 己 始 }) . { 最 终 }R 


执行 或 表 列 程式 
{ 位 址 G } 


{ 位 址 工 } 
迷你 粗 合 语言 翻译 程式 
F666G 


$ { 命 今 } 


S$FF69G 
{ 位 址 } S 


{ 位 址 上 工 
其 他 命 兮 
1 


* Appie T Plus 不 滴 用 。 
本 本 自动 租 始 ROM 不 通用 。 


将 位 於 { 彰 始 } . { 最 禾 } 范 轩 内 
之 记忆 器 内 合 储 存 在 卡带 上 ，, 冰 有 
10 秒 的 前 导 信 号 。 

将 卡带 上 之 资料 读 入 { 局 始 ) .|{ 
最 终 ) 间 ， 若 钳 葡 出 显示 ”ERR 


将 控制 移 转 至 以 { 位 址 } 垮 天 始 的 
机 器 东 言 程式 。 


-将 以 { 位 址 } 坑 开 始 的 20 个 指令 反 


租 合 区 显示 ， 再 按 一 个 L 将 炎 灶 显 
示 下 20 偶 指 今 。 


和 浊 入 迷你 和 粗 合 语言 翻译 程式 ” 

从 迷你 租 合 语言 翻译 程式 执行 监督 
程式 命 今 。 

玄 开 迷你 组 合 语言 翻 绎 程式 

反 和 组 合 ， 显示 薄 执行 在 { 位 址 上 之 
指 今 ， 之 后 显示 6502 内 寻 暂 存 器 
内 含 ， 连 标的 S 命 今 将 速 入 指 今 的 
执行 。 

一 直 前 进 ，TRACE 命 分 具有 在 伐 
到 BRK 指 今 或 撤 RESET ”” 
键 时 才 停 止 。 


设 定 反 相 显 示 模 式 


| 


{ 数值] + { 数值 ) 
{ 数值 -~ { 数值 } 


{ 潮 娄 [CTRL 避 
( 清 数 】 [CTRL 


= 有 过 
99 局 
外 


,将 两 数值 相 加 北 显 示 粘 果 


届 定 正常 显示 模式 
和 进入 目前 骨 於 Apple RROM 之 萌 襄 ” 
重新 进入 目前 甘 於 Apple ROM 之 


将 壤 出 导 至 设 羔 数 上 的 界面 板 ， 藻 


.{ 汪 数 ) = 0， 则 被 遵 至 Apple 题 


从 该 漠 数 上 的 界面 板 撒 取 资 料 ， 车 
{ 洲 数 } = 0， 则 接受 来 自 Applje 


键 稻 的 资料 。 


跳 至 机 回话 吾 副 程式 $3F8。 


一 些 有 用 的 监督 程式 副 程 式 


以 下 列 出 存 於 Apple 监督 程式 及 自动 入 始 ROM 之 有 用 副 程式 
。 在 机 器 车 否 程 式 中 使 用 过 些 程式 时 ， 将 设 副 程式 所 需 的 注 当 位 址 
或 6502 内 半 更 存 器 载 入 湖 当 的 值 然 后 执行 JSR 到 副 称 式 之 开始 


位 咒 即 可 。 它 将 执行 设 功 能 冰 将 6502 之 杰 存 器 依 所 述 定 乒 回 外 


$FDED COUT 


坟 出 一 个 字 元 


COUT 是 标准 字 元 办 出 副 程 式 ， 将 输出 之 字 元 必 冲 锥 困 加 器 内 
:COUT 呼 中 目前 被 放 於 CSW ( 位 医 $36 及 $37) 内 的 字 元 略 出 
出 程式 ， 一 般 需 COUT1 (如 下 )。 


S$SFDFfJ COUTI1 
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COUT1 将 目前 存在 累加 器 的 内 含 桩 出 至 Apple 显示 幕 上 目前 
核 出 游标 的 位 蔷 东 将 设 游标 前 进 一 位 。 它 依 正 常 / 反 相 位 器 之 设 定 
而 核 出 字 元 ， 它 同时 上 处理 RETURN 、 进 线 及 效 铃 字 元 ， 回 外 时 所 
有 暂 存 器 不 和 受 影响 。 


$FE881 SETINV 届 定 反 相模 式 


将 COUT1 用 的 视频 输出 设 坑 反 相 模式 ， 所 有 的 壤 出 字 元 均 以 
白 底 黑 字 题 示 ，Y 暂 存 器 筱 设 需 $3F， 其 他 暂 存 器 不 饮 。 


$FE84 SETNORM 设 定 正常 模式 


将 COUT1 用 的 向 频 过 出 设 定 伪 正常 模式 ， 所 有 炉 出 字 元 均 以 
白字 黑 底 题 示 ，Y 暂 存 器 破 设 需 $FF ， 其 他 不 变 。 


$FD8E CROUT 产生 一 个 RETURN 
CROUT 运 一 个 RETURN 至 目前 坊 出 装 冒 。 
$FD8B CROUT1 RETURN 兹 清 除 


CROUT1 人 然后 
呼 吓 CROUT 。 


S$FDDA PRBYTE 印 出 十 六 进 制 位 元 和 组 


设 副 程式 将 果 加 器 之 内 含 办 出 至 日 前 之 列表 装置 ， 累 加 器 内 含 
章 破 赴 。 


$FDE3 PRHEX 印 出 十 六 进 制 数位 


坝 副 程式 将 累加 器 内 低 尼 布 之 数位 以 昌 一 十 六 进 制 数位 方式 边 
出 ， 累 加 器 内 售 被 破 壤 。 
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$F941 PRNTAX 将 A 与 X 用 十 六 进 制 印 出 


访 副 程式 将 A 及 和 之 内 含 以 四 数位 十 六 进 制 值 印 出 ，A 印 在 前 
面 ，X 在 后 而 ，A 之 内 仿 一 般 会 被 破 二 。 


$F948 PRBLNK 印 出 3 个 空白 
将 .3 个 空白 迭出 檬 准 壤 出 装 笛 ， 跳 回 时 ，A 一 般 坑 $A0，X 坊 
$F94A PRBL2 ， - 印 出 委 多 空白 


埠 副 程式 将 内 之 个 数 的 空 折返 至 标准 术 出 装 苇 ， 若 X= 00 则 
PRBL2 将 坊 出 256 个 空白 。 


SFF3A BELL 入 出 一 响 给 ” 字 元 
设 副 程 式 返 一 个 “ 叫 给 字 元 至 标准 罚 出 装置 ， A 内 合 局 $87 
$FBDD 。 BELL1 Apple 揭 壁 器 - 哩 " 一 吉 


设 副 各 式 使 Apple 之 换 吉 器 玫 出 IKHZ 之 哮 " 声 0.1 秒 ，A 
二 


S$FDHC RDKEY 得 一 攀 入 字 元 


设 副 程式 久 标 准 字 元 核 入 副 程 式 ， 在 断 示 杂 几 出 游 术 位 置 上 大 
示 一 内 煤 壤 入 游标 ， 冰 跳 至 目前 存 於 KSW (位 品 $38 及 $39 ) 之 
目前 输入 副 程 式 ， 一 般 坊 KEYIN ( 如 下 )。 


$FD35 RDCHAR 得 一 壕 入 字 元 或 ESC 码 
RDCHAR 是 从 栋 准 输入 获得 字 元 的 另 一 办 大 六 程式 ， 但 也 了 
解 十 一 个 ESCAPE 三 ( 见 xx 页 )。 和 
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$FDIB KEY IN 读 取 Apple 之 键盘 


键 如 坊 入 副 程 式 ， 读 取 Apple 之 键盘 ,等待 按键 东 产 生 侈 数 种 
( 见 xx 页 )， 当 键 彼 按 下 时 ， 设 副 程 式 移 去 闪 煤 游标 小 将 键 码 
人 至 累加 器 。 


$FD6A GETLN 得 一 壕 入 和 线 及 提示 符号 


GETLN 副 程式 可 收集 核 入 线 ( 见 x x 页 ) ， 程 式 中 可 以 呼叫 ， 
谱 副 程式 薄 将 送 当 提示 字 元 放 在 位 佣 $33 ; GETLN 回 外 时 ， 琼 入 
和 线 之 资料 破 放 於 入 组 街区 ( 开始 位 填 $200 ) ， 而 X 之 值 坑 入 
和 线 上 的 字 元 长 度 。 


$FD6 7 GETLNZ 得 一 柱 入 精 


GETLN 是 另 一 个 进入 GETLN 的 进口 点 ,但 在 进入 GETLN 
之 前 先 运 一 个 RETURN 至 标准 核 出 。 


$FEB6F .GETLN1 得 一 术 入 粮 组 没有 提示 符号 


GETNN1 是 另外 一 个 GETLN 的 进口 ， 但 在 收集 输入 线 之 前 
没有 显示 提示 符号 ， 但 是 如 果 因 坊 使 用 太 多 的 后 退 键 或 CTRL X 
而 取消 各 壤 入 线 的 话 ，GETLN1 将 位 填 $33 之 内 含 显示 出 来 浅 跳 
至 下 一 线 。 
$FCA8 WAIT 垦 延 

设 副 程式 逮 延 A 内 数值 之 时 间 ， 落 回 到 呼叫 之 程式 。 若 A 之 值 
壤 N ， 则 将 逮 延 允 ( 26+27N+5N: )A4S， 回 外 时 A 坊 凡 ，X 及 Y 
不 炙 。 、 


$F864 SETCOL 设 定 低 解析 度 和 烩 图 模式 
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该 副 程 式 将 低 解析 度 和 给 图 用 的 颜色 设 入 由 A 迁 来 的 颜色 ， 请 参 
并 x x 页 之 低 解析 度 色彩 才 。 


SF85F XEXTCOL 将 色彩 加 3 
将 目前 低 解析 度 给 图 用 的 色彩 加 3。 
$F800 PLOT 在 低 解析 度 题 示 幕 上 划一 个 方块 


坊 副 程式 以 事先 定好 的 颜色 在 低 解析 度 旺 示 幕 上 划一 个 方块 ， 
A 之 内 含 需 方 雪 之 垂直 位 置 ，Y 需 水 平 位 址 ， 回 刀 时 A 被 破 壤 ，X 
旺 Y 不 受 影响 。 


S$F819 HHINE 划一 水 平和 线 之 方块 


设 副 程式 以 事先 定好 之 颜色 在 低 解 析 度 显示 幕 上 副 一 缚 的 方志 
, 呼 咱 时 全 放 垂 直 座 标 而 Y 放 水 平 最 左 座 标 ， 水 平 粮 右 座 标 在 位 靶 
$2C 内 ， 回 电 时 A 与 Y 被 破 坏 ，X 不 释 。 ， 
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$F828 VELINE 划一 王 直 和 银 方 块 


设 副 程式 以 事先 定好 之 颜色 在 低 解析 度 题 示 幕 上 划一 垂直 米 方 
块 ， 呼 吓 时 水 平 座 标 在 Y 内 ， 最 顶端 之 生 直 座 标 在 A 内 ， 而 最 底 垂 
让 座 标 则 在 位 置 $2D 内 。A 被 破 坊 。 


$F832 CLRSCR 清除 整个 低 解析 度 显示 幕 


该 副 程 式 清除 整个 低 解 析 度 显示 幕 ， 如 果 在 正文 模式 中 呼叫 
CLRSCR ， 则 整个 果 示 幕 将 出 现 反 相 的 ”@“ 字 元 。A 毁 YY 被 破 
坏 。 

S$F8 36 CLRTOP 清除 低 解 析 度 显示 幕 之 顶端 


CLRTOP 之 动作 且 CLRSCR 相同 ， 只 是 它 仅 清 除 显 未 幕 之 
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顶端 40 横 列 。 
$F871 SCRN 。 寻 取 低 解析 度 显 示 幕 


设 副 程 式 回 晤 时 带 回 低 解析 度 显示 幕 某 方块 之 颜色 码 ， 呼 中 法 
与 PLOT 一 样 ( 见 上 所 述 ) ， 颜色 码 将 冒 於 A 内 ， 其 它 暂 存 器 不 继 。 


$FBIE PREAD 读 取 和 游 戏 控制 器 


PREAD 将 带 回 代表 和 游 玫 控制 器 位 置 之 值 ， 呼叫 时 闪 放 控制 器 
代号 ( 0 至 3 ) ， 如 果 代 号 不 合 ， 将 有 奇怪 现象 发 生 ， 回 包 时 Y 之 
内 仿 饥 $00 至 $FF ，A 则 被 破坏 。 


$FF2D PRERR 印 出 ” ERR 
将 ” ERR "及 千 铃 返 至 标准 办 出 装置 ，A 被 破坏 。 
$FF4A IOSAVE 储存 所 有 暂 存 器 


将 所 有 6502 内 即 暂 存 器 存 於 $45 至 $49 之 位 置 内 ， 顺 序 坊 
A 一 X-Y 一 P 一 S，A 及 被 改 释 ,十 进 模式 被 清除 。 


$FF3F IOREST 取 回 所 有 芹 存 器 
将 位 置 $45 至 $49 之 内 合 载 入 6502 内 恤 暂 存 器 内 。 


监督 程式 的 特殊 位 置 
麦 14 : 第 三 页 监督 程式 位 园 


181f8| 8$S3FV 无 存放 处理 机 器 语言 “ 
1409 | $3F1 BRK ”要 求 副 程式 的 
位 址 ,一般 需 $FA59 


$3F2 无 
软 人 性 进口 向 量 
$3F3 


开机 位 元 租 
存放 上 处理 Applesoft QI “&” 
程式 的 跳 越 指 今 ， 一 般 饥 $4C $58 
$FF 
存放 不 理 使 用 者 ( CTRL YY 
程式 的 跳 越 指 分 


存放 不 理 不 可 遮 描 中 断 列 程式 的 中越 指 今 


存放 不 理 中 断 要 求 副 程式 的 位 址 
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迷你 组 合 语言 翻译 程式 之 指令 格式 


Apple 迷你 组 合 语言 翻译 程式 可 认识 6502 组 台 熙 下 程式 的 56 
倡 和 纵 码 及 13 征 定 址 型 式 。 缩 码 是 标准 型 式 ， 如 MOS Te.hnoiogy 
1/Synertek 6500 Programming Manual ( Apple 入 疲 
A2L0003 ) 之 方式 一 致 ， 但 定 址 型 式 略 有 不 同 ， 以 下 ”92 息 
合 语 言 Apple 标准 定 址 形式 之 格式 : 


表 15 迷你 组 合 落 言 翻译 程式 定 址 格式 


$ { 位 址 }】， 人 入 
$ { 位 址 }) ，Y 
$ { 位 址 } ， 尺 
$ { 位 址 上 ，Y 
指 要 间接 ”(${( 位 址 }，X) 
间 接 指 栋 (${( 位 址 ] ) ，Y 
引 对 间 接 ($( 位 址 } ) 


{ 位 址 } 由 一 倘 或 更 多 十 六 进 制 数位 组 成 ， 迷 你 组 台 落 车 翻 弹 
程式 对 位 址 之 解释 法 与 监督 程式 同 : 即 如 果 位 址 少 於 4 侦 ， 前 头 视 
” 需 ; 若 多 於 四 个 ， 仅 用 最 后 四 个 。”$“” 符号 坎 示 二 六 进 制 ， 迷 你 . 
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和 组 合 语言 翻译 程 式 忽略 它 ， 因 此 可 以 不 用 。 

在 绍 对 与 零 页 定 址 型 式 中 ， 没 有 语法 上 之 不 同 ， 在 可 以 同时 使 
用 绝对 与 雳 页 地 址 型 式 的 指令 中 ， 若 给 予 的 位 址 大 於 SFF 则 迷你 组 
合 应 言 翻 绎 程式 自动 导 用 绝对 定 址 形式 ， 若 位 址 小 放 $100 ， 则 摊 
雳 真 定 址 模式 。 | 

困 加 器 及 隆 含 式 定 址 型 式 不 需 运 算 子 。 

分 支 指 今 ， 使 用 相对 定 址 模式 ， 需 要 分 支 的 目标 位 址 。 迷 你 租 
合 语言 翻 译 程 式 可 以 自动 地 算出 分 支 的 相对 距 内 ， 如 果 至 该 分 支 日 
标 位 址 之 距 克 大 於 127， 迷 你 组 合 语言 翻译 程式 将 发 出 “ 哩 " 东 在 
目标 位 址 下 显示 抑 揭 符号 ( ^ ) 站 丢 素 坝 粮 。 

如 果 和 给 予 迷 你 组 合 族 言 翻译 程式 指令 缩 码 、 运 算 子 ,但 运算 子 
之 定 址 型式 汞 不适 於 贡 指令 ， 则 迷你 组 合 瘟 言 翻 耕 程式 将 不 接受 敲 
坊 入 和 线 。 
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系 杭 记 储 器 分 配 图 


页 
十 进 制 Re 


RAM(48 扩 ) 


ee 
I/O RO M 
( 2K ) 


图 5 系 桃 记 全 器 分 配 图 
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麦 16 RAM 之 和 结构 及 使 用 


页 . 数 
系 碗 程式  ， 


0_ $ 00 


正文 及 低 解 析 度 答 
图 第 二 页 储存 区 


高 解析 度 给 圈 第 一 
页 储存 区 
高 解析 度 输 图 第 二 
页 储存 区 
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玫 17 ROM 之 结构 及 使 用 


Programmer S 
Aid 帮 1 


Applesoft II 
BASIC 


Integer BASIC 


实用 副 程 式 


霍 页 记 慑 器 分 配 图 
玫 18 监督 程式 震 页 使 用 情形 


十 进 制 0123456789101112131415 
十 六 进 制 | $80$1$2$3$4$5$6$7$8 $9$A$B$CS$DS$ES$F 


玫 19 Applesoft II BASTC 需 页 使用 情形 
十 进 制 0123456789101112131415 
十 六 和 进 制 |$0$1$2$3$4$5$6$7 $8$9 $A$B$Cc $DSES$SF 
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才思 ， DoOS_ 3.2 雳 页 使 用 情形 


十 进 制 7 8 9 10 11 12 13 14 15， 
十 六 和 进 制 $0 和 82 8$3 84 $5 5 $7 $8. 和 9 $A $B $CSDSE SF 


se - 考 忆 Je AI 罗 克 下 情 及 


二 着 科 8 9 10 1112 13 14 15 
十 六 进 制 0 和 吕 $3 和 站 5 $7 $8$9 0 


号 SEESES 


下 列 之 符号 将 应 用 於 本 炉 千 中 : 


人 : 果 加 器 图 1 ASL :向 左 移 一 位 元 
X ,Y : 指标 暂 存 器 之 动作 

M 。 : 所 悍 顺 四 -[I5[5T3BITIO-D 
C : 借 位 ， 

P : 处 理 机 状态 暂 存 器 图 2 ROL : 向 左旋 转 一 位 
S : 堆 滞 指示 器 元 ( 记忆 器 或 果 加 器 ) 
V 


: 改 思 
“未 改 炙 MORER 
直 : 加 上 7161514[1312T1T0 尼 


和 “ 尘 辑 AND 


一 ; 减 图 3 ROR :向 右 旋转 一 位 

水 : 选辑 互 斥 OR 元 

1 : 从 堆 释 中 取出 

上 : 维和 堆 各 上 

一 : 传 至 注 

二 : 传 至 注 丰 1: BIT : 泊 试 各 位 元 

V : 选辑 OR ,位 元 6 及 ?7 和 被 伟 适 

PC ，”: 程式 计数 器 至 状态 暂 存 器 ， 若 A 
PCH : 程式 计数 器 之 高 位 元 组 A^ M 之 结果 伪 0， 央 
PCL : 程式 计数 器 之 低位 元 租 Z= 1 ,否则 Z= 0 站 
OPER : 运算 子 。 
井 。 :立即 定 址 而 式 
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规划 模式 


累加 器 


| 指标 暂 存 器 Y 


7 0 
指标 暂 存 器 芭 
15 7 0 


程式 计数 器 


堆 辟 指示 器 


~ 
一 


需 

中 斯 除 能 
十 和 进 横 式 
中 止 命 今 
蕉 位 

负 ( 符号 ) 
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不 理 机 状态 御 存 器 ”1 


)》 " 


ADC 与 进位 值 一 起 加 至 黑 加 器 
NZCIDV 
浊 算 : A+M+C 一 A ，C ， 


IE 
DEC 


AND 记忆 位 置 内 含 与 累加 器 内 含 AN D 


CR YAND aa 


* 超越 责 界 限时 加 1 。 
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ASL 一 肾 加 器 内 含 左 移 


运算 :，C 二 |7|6|5|4|312|1 ol-0 NZCIDYV 


VV 一 -一 


BCC 一 进位 清除 时 跳 越 
AZCIDV 
运算 ，c = 0 时 路 越 RE 


3 2 | 

* 中 越 至 同 页 时 加 1 ， 跳 笃 不 同 页 时 加 2 。 

附 址 ， AIM65 能 接受 BCC aa aa 之 纸 对 定 址 形式 ， 世 将 之 转换 
成 相对 位 址 。 


BCS 一 进位 置 定时 跳 越 
.NZCIDV 


运算 ，c = 1 时 跳 越 .。 
* 跳 越 至 同 页 时 加 1 ， 跳 至 次 页 时 加 2 。 
址 ，AIM65 可 接受 息 对 定 址 之 运算 元 ， 冰 将 之 换 成 相对 位 址 。 
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BEQ， 一 千 果 等 於 雳 时 跳 越 


NZCIDV 


运算 ，2Z = 1 时 跳 越发 生 


*# 跳 至 同 页 时 加 1 ， 跳 至 次 一 页 时 加 2 。 ， 
圭 : AIM65 可 接受 绝对 位 址 之 运算 元 ( 形 如 .BEQ aaaa), 落 
将 之 转换 成 相对 位 址 。 


也 工 工 一 测试 记 饶 位 元 值 

运算 ， AAM ,M 一 N ,Me. 一 V 
第 6 与 7 位 元 抄 至 状态 暂 存 器 。 NZCIDV 
若 A 人 AM 结果 和 念 雳 , 则 Z=1 ;否则 Z=0 Mrv--~M: 


BMI 一 运算 结果 负 时 中 越 
NZCIDV 


运算 : N = 1 时 ， 跳 越 狼 生 。 


*# 跳 至 同 页 时 加 1 ， 跳 至 不 同 页 时 加 2 。 . 
址 :AIM65 能 接受 纸 对 位 址 , 薄 将 之 转换 成 一 相对 位 址 。 
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BNEE 一 结果 不 等 於 雪 时 跳 越 
NZCIDYV 


还 算 ，Z -= 0 时 ， 跳 越 玫 生 。 


定 址 法 | 。 租 合 语言 形 式 。 |。 到 算 码 | 位 元 租 数 | 期 数 
[和 对 | BNE aa| pp| 。|s* | 
*# 跳 越 至 同 页 时 加 1 ， 跳 越 至 不 同 页 时 加 2 。 

址 : AIM 65 能 接受 一 想 对 位 址 , 东 将 之 转换 成 相对 位 址 。 


BPL 一 千 果 人 坑 正 时 跌 越 
NZCIDV 


人 1 人 2 。 
壮 : AIM 65 能 接受 一 引 对 位 址 之 运算 元 ( 指令 格式 BPL aaaa 
) ， 落 将 之 转换 成 相对 位 址 。 


BRK 一 人 迫使 中 断 
BNZCTDV 


运算 :被 迫 插 断 PC+2 JP1! 


了 BVC 一 洽 位 清除 时 中 越 
NZCIDV 


运算 : V = 0 时 ， 跳 越发 生 。 

ET 
ac aa al 
* 跳 越 至 同 页 时 加 1 ， 跳 越 至 不 同 页 时 加 2 。 

. 填 *AIM65 能 接受 一 起 对 位 址 ,， 东 将 之 转换 成 相对 位 址 。 


BVS 一 给 位 旗号 置 定时 跳 越 
NZCIDV 


” 竖 算 : V= 1 时 ， 跳 越 玫 生 。 


合 语言 形式 位 元 组 数 
* 跳 越 至 同 页 时 加 1 ， 跳 越 至 不 同 页 时 加 2 。 
广 :AIM65 能 接受 一 息 对 位 址 ， 东 将 之 转换 成 相对 位 址 。 


LCLC 一 清除 进位 旗号 
也 NZCIDV 


一 一 0 ~- 一 一 


运算 ， 0 一 C 多 


ee 


re 


CLD 一 清除 十 进 制 位 元 


NZCIDV 
2 


CLI ”一 清除 插 断 禁 能 位 元 
NZCIDV 
0 


CLV 一 清除 洽 位 旗号 


NZCIDV 


一 一 一 -一 0 
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CMP 一 如 人 位置 内 含 旺 累加 器 内 含 相 比 | 
NZCIDV 
VVVv-= 一 


遇 期 数 


| 通 期 数 
5 
本 瑟 到 天 县 区 到 
更 卫 几 
| 
| 


D 


“ 宰 若 越过 页 过 界 ?9 则 加 1 


CPX 一 训 懂 位置 内 合 给 X 暂 在 器 内 含 相 比 
NZCIDV 
运算 : X 一 M 


CPY 一 记 侯 位 置 内 含 伍 Y 暂 存 器 内 含 相 比 


NZCIDV 
VVV- 一 一 
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La 一 


DEC - 记 鳃 位置 内 合 值 减 一 


NZCIDV 
SEE 


DE 久 一 X 析 存 器 内 含 值 减 一 
NZCIDV 


DEY 一 Y 暂 存 器 内 含 值 减 一 
NZCIDYV 
运算 :Y 一 1 一 Y vv-- 一 
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EOR 一 记 屋 位 雯 值 与 累加 器 值 EO R 
NZCIDV / 
运算 : AVM-AA VE 


| 


EOR 秆 dd 


cn 居 | 心 | 心 Ce 
芝 新 壮 


NZCIDYV 


运算 :X+ 1 一 X 人 


NTY 一 Y 暂 存 器 内 含 值 加 一 
NZCIDV 


JMP 一 跳 越 
运算 :， (PC+1 ) 一 PCL NZCIDV 
二 二 


JMP (aaaa) 


JSR 一 踏 越 至 副 程式 
还 算 : PC+241,，(PC+1 ) 一 PCL 
(PC+2 )-*PCH 


NZCIDV 


LDA 一 如 人 局 位 置 内 含 取 入 时 加 器 


NZCIDV 


( 问 接 ,X)|1LDA (aa,X) 
( 间接 ) ,YjLDA (aa)iY 
* 若 超越 页 瀑 界 , 则 加 1 。 


LDX 一 记 饶 位置 内 含 取 入 X 暂 存 器 
NZCIDV 
运算 ， M 一 es 


* 车 越 台 页 瀑 春 , 旭 加 本 
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一 记 恰 位 填 内 含 值 取 入 Y 芹 存 器 


*# 越 尝 页 界限 时 加 1 。 


LSR 一 选辑 右 移 
NZC IDYV 
DG659Bn0 忆 以 ovv--- 


NOP ”一 无 运算 
运算 : 无 运算 本 NZCIDV 


ORA ”一 如 慌 位 藤 内 含 且 累加 器 内 含 O R 
NZCIDV 
运算 ，AVM 一 A 了 
本 攻 玫 
要 Ta oh aa 

ossax 5 2 
在 
lg X |ORA ass xD 3 
[YogA aa ae 
Cs 
Ce) Yona ar 2 | sy 


* 超越 页 界 时 加 1 。 


PHA 一 累加 器 内 含 推 信 堆 夫 器 


NZCIDV 


PHP 一 状态 暂 存 器 内 含 推 入 堆 且 器 
NZCIDYV 


PLA 一 自 堆 受 器 拉 取 至 累加 器 


NZCIDYV 
VV---- 


PLP 一 状态 暂 存 器 内 合 自 堆 避 器 拉 回 
NZCIDY 
运 算 : P 1 来 自 难 屋内 合 


M 或 人 A 大局 
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一 右 旋 转 
NZCIDV 


M 或 A VVV -一 一 
3 ER 


有 工 l 一 插 断 回 返 
NZCIDV 
运算 : PTPC1 来 自 兴 玖 全 


RTS 一 副 程式 回 返 


渤 算 : PCT ,PC+1 一 PC 症 世 二 二 
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SBC 一 果 加 器 值 减 去 记忆 位置 值 办 进位 
运算 ，A 一 M 一 5 一 A NZCIDV 
VVv-- 一 尽 


〈 间接 ) , 工 | SBC (aa ) ,了 


*# 若 超越 页 界限 , 则 加 1 。 


SEC 一 进位 旗号 般 定 篇 1 


NZCIDV 
二 二 二 二 二 各 


彩 国 本 下 瑟 四 
SED 一 般 定 含 十 进 抽 
NZCIBDV 
到 算 ，1 一 D 人 
外 合 应 言 形式 | 运算 码 这 期 数 
于 二 | 作 | 


AL4 


SEI 一 凯 定 插 断 禁 能 状 郁 


NZCIDYV 


STA 一 时 加 器 内 含 存 出 至 让 便器 
NZCIDV 


STX 一 X 芹 存 器 内 合 存 出 记 懂 器 
NZCIDV 


er 
os 


STY 一 Y 暂 存 器 内 含 存 出 记 愉 器 


NZCIDV 


TAX 一 果 加 器 内 含 抄 至 X 暂 存 器 
汉 NZCIDYV 
运算 : A 一 X LV 


TAY 一 累加 器 内 含 抄 至 Y 暂 存 器 


NZCIDV 
WE 二 
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工 SX 一 堆 况 指示 器 内 含 抄 至 X 暂 存 器 
NZCIDV 
VVv---- 


E 

工 XA 一 X 暂 存 器 内 含 抄 至 黑 加 器 
NZCIDV 
运算 ， X 一 A Vv- 一 -一 


TXS 一 X 暂 存 器 内 含 抄 至 堆 辟 指示 器 
NZCIDV 


TYA 一 Y 暂 存 器 内 合 抄 至 累加 器 
. NZCIDV 
运算 : Y 一 人 A AAA 


二 
和 | 


呈 二 遇 呈 和 更 
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一 


述 


ET 
TD 


1824 | $7FF 

2848 3871 
$21g1 | 8192 | $3FFEF | 16383 
$4999 24575 
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| 表 5 ;显示 幕 软 性 出 氏 |] 
人 位， 时 | 
Er 
49232 -163W4 “| 显示 一 种 答 图 模式 
$cf51l 49233 -16383 显示 正文 模式 
人 49234 -1639 2 显示 所 有 正文 或 给 图 模式 |. 
49235 -163g1 
54 49236 :-16398 
49237 -16299 


正文 与 给 贺 模 式 混合 
$Cy56 | 49238 -16298 
$Ccy57 49239 -16297 


卖 .9 : 告示 特殊 位 鞠 - 


“ 灰 示 低 解析 度 稚 圈 模式 
本 


-| ET 
-16295 $Cfhj59 


49242 -16294 $CcHj5A . 
49243 -16293 
49244 -16292 $cgy5C 
49245 -16291 
49246 -16298 

49247 -16289 
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玫 10 输入 /出 特殊 位 针 


卡带 办 出 49184 “ -16352 | $cyr28 

了 49256 -16288 | 
告示 输出 | 49241/ -16296 | $cy58 

至 


49247 -16289 


SC977 


表 11 : 正文 窗 特 殊 位 午 
| 最 小 /正常 /最 大 值 


进 制 | 十 六 浊 制 | 十 进 制 
Y 


| 
攻 人 as warrarlsr7srs7sia 


麦 12 : 正常 / 反 相 控制 值 


COUT ”将 依 内 类 模 式 显示 字母 而 依 
反 相 模式 显示 其 他 字 元 


表 13 : 自动 崩 始 ROM 特 丈 位 填 


下 


1 人 1 月 S$3F2 软 性 进口 向 量 ， 坝 两 位 苇 包 含 任何 应 
1811 $3F3 | 萌 的 进 只 点 位 址 ,一 般 坑 $E003 


II 天 


64367 $FB6F | 该 不 坊 机 器 请 言 设 定 开 机 位 元 粗 的 位 
( -1169 ) | 


$1 $l1 $2 $3 $5 $6 $7 $8 $9 $A $B $C. S$D $E $F . 
scrmlaaxixr | 


下 
|$cy3 人 扬声器 违 炽 反 相 ( 软 性 开关 ) 


ED 
sss[aaTATESES| 
攻略 本 四 国 台 区 析 EEE 世 


和 缩写 之 总 义 : 
gr  : 设 定 绘图 模式 


tx : 设 定 正文 模式 
nomix : 设 定 全 邵 正文 或 给 图 
mix 。 : 正文 及 给 图 混合 
pri  : 显示 第 一 页 

sec :显示 第 二 页 

lores : 显示 低 解析 度 和 给 图 
hires : 题 示 高 解析 度 和 给 图 


an : 告示 较 出 
pb : 按 扭 壹 入 
gc : 游 台 控 制 器 壤 入 
cin :卡带 输入 


A-50 


表 23. : 周 过 搞 充 板 I / 0 位 置 


4 S$ 和 5335$ 5$63$7$89$ SAS$BSC 和 和 SF 


” 表 24 : 周 直 扩充 板 PROM 位 蔷 


1 
2 


3 

请 数 4 之 ?ROM 预 留 位 址 
.6 
7 
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玫 25 : /0 位 冒 基础 位 置 


SC891 SCOA8 SCGB1 SCOC8 
$cb91 $COA1 $C0B1 SCYC1 
3C092 SCVOA2 SC0B2 SCOC2 
$C193 $COA3 $CVB3 SC8VC3 
SC194 SCOA4 S$CDB4 SCOC4 
$cW95 SCOA5 SC0B5 S$CcgC5 
SCW96 $C9A6 $C0B6 SCVC5 
SC197 SCUVA7mS$SCVUB7 SCGC7 
$C098 SCVA8 SCcgB8 SC0C8 
$Cb99 $C89A SC8B9 SCgC9 
SC09A SCVAA SC8BA SCOCA 
SC09B SCVUAB $ CBB SCGCB 
SCb9C SCgUAC SCcgBC SCcgcc 
$Cb9D SCVAD SCgBD SCOCD 
SCV9E SCOAE SCVBE SCGCE 
SCV9F SCOAEF SCOBF SC8gCF 


I / 0 位 置 


30479 3047A 3S847B 3$S947C $047F 
$04F9 3SV4FA $S04FB SG4FC 4 细 4FF 
3S0579 3$057A 3S057B 3$S057C 3$S057F 
9$05F9 S05FA SO5FB S$S05FC 3$S05FF 
30679 3067A $867B $067C 3067F 
316F9 9S16FA SV6FB 9$06FC $S06FF 
50779 3$S077A 3S077B $S077C $077F 
3S07F9 3S17FA S87FB S17FC 307FF 


BRK 

DORA 一 'Ingrect R 
NODP 

NOP 

NOP 

ORA 一 Zero Page 
ASL 一 Zero Page 
NOP 

PtP 

DRA 一 Immediste 
ASL 一 Accumutsior 
NODP 

NOP 

ORA 一 Absolute 
ASL 一 AbsoDiuie 
NOP 

号 所 

ORA 一 Induecb Y 
NOP 

NOP 

NOP 

ORA 一 zero Page X 
ASL 一 Zero Page X 
NOP 

CLC 

ORA 一 Absolute Y 
NODP 

NOP 

NOP 

ORA 一 Absotule.X 
有 SL 一 Absokute_ X 
NOP ” 
JSR 

AMND 一 .Indwect of 
NODOP 

NODP 

BIT 一 Zaro Page 
AND 一 Zerg Pag0e 
ROLL 一 zero Page 
NOP 

PLP 

大 洛 一 Immegiate 
ROL 一 .Accurmulsioy 
NOP 

BIT 一 Apsotule 
AD 一 Absotute 
ROL 一 Absolute 


十 六 进位 数 操作 码 


2f ~ NOP 
3 - Bi 
31 一 AND -indect Y 
32 - NOP 
33 ~ NOP 
34 一 MDP 


一 AND 一 ZerID Page X 
了 荐 - ROLL - Zero page 中 


3?7 -~- NOP 
38 ~ SEC 
38 -，AND 一 Absolule Y 
3A -~- NOP 
38 -~ NOP 
3C - NDP 


3D - AN - Abyolute 其 
医 -ROLE -Absolute N 
3F 一 NOP 

4 -~ RTi 

41 一 EOR -Lingoescl X 
4 一 NOP 

43 -NOP 

44 一 NOP 

4 -EOR 一 Zero page 
46 一 LSR ~ Zero Page 
47 -NOP 

48 一 PHA 

49 一 EOR 一 Immediate 
4A 一 LSR 一 ACCumulaloy 
4B - NOP ， 

4C - JMP 一 Absolute 
4D. -上 DR 一 Abyotute 
4E 一 【SR -- ADSOlute 


4F ~- NOP 
520 -~ Byc 
51 -上 OR tndiect Y 
57 -NOP 
43 - NOP 
54 ~- NDP 


45 ~- EOR 一 ZerO Page 
56 一 LSR 一 Ze1IO PSOe 


57 一 NDP 
38 一 CL 
59 - EOR - Apsolute Y 
5A ~ NOP 
58 一 NODP 
SC -~ NDP 


5D ~ EOR 一 Dsolu1e 


A-53 


号 怠 


-SA 
NO 


RTS 
二 口 一 
NOP 


-NOP 


OP 
和 CC 
RO> 
NOP 
只 全 
和 C 


Ron - 


NOP 
JIMi 


- ADC 


RDR 
NOR 
是 VS 
ADC 
NDP 
NOR 
NOP 


ADC - 


ROR 
NOF 
S6! 

站 器 辣 
MOP 
NOP 
NOL 
和 DC 
只 和 允 


NOP 


NOp 
STA 


NO 


NODP 
STY 
STA 
STx 


NOP 


DEY 
NOP 
了 了 半 二 
NOP 


- D3oOrvte 于 


na.rec: 竹 


了 


zerce Paye 
一 Ze's Pade 


-mmecatw 


-ingeec' 
一 Absorute 
一 Apsolute 


一 imgar1 


ZeTO PhGe 
-Zen Payr 


一 ADJvir 


和 DO 
-AU 


nare 


Derc >82r 
-Zeio FeJr 


一 zere payr 


SC 一 STY -- Abosotiutf 


Ar mviator 


YY 


本 


1 


4 


十 六 进位 数 操作 三 


STA -absoluie 
STXK 一 ADSOlu18 
NOP 

BCC 

STA -mgrect Y 
NOP 

NOP 

STY ~ ZelO Page 闪 
STA 一 ZrO Page 和 
STX 一 Zero Page 了 
NOP 

TY 二 

STA 一 Apsotvtle Y 
TxS 

NOP 

NOP 

STA 一 站 DsDFUte 拉 
NOP 

NOP 

DY - Immed'aie 
DA 一 :ing'rec1 2 
LDx -- Immediate 
NOP 

DY - Zelo Page 
LDA 一 Zeio Page 
LDx 一 Zer'O Page 
NOP 

TAY 

人 DA 一 Immed'iste 

了 和 


NOP 
LDY 一 Absolule 
ADsorule 


LDz 一 Abaolute 
NOP 

BC5 

LDOA 一 ,nerech Y 
NOP 

NODP 


Be 一 LDY -Zero Page 电 
8B5 ~ LDA 一 ZerO Page 
B6 一 kDX 一 Zero Page YY 
SB7 -NOP 

Bs 一 CLY 

89 一 DA - Abuelute 了 
人 TS 


.8B - NOP 


8C 一 LDy ~ abtolw 
BD 一 LDA .Abeohvt 


.BE -LOx -Absoivile Y 
-Br 一 NOP 


CO --.Cpy ~- Immegce 队 “ 
CI 一 CMP -ndrecl X， 
NGp s 
NOP 

CCPY， 二 ZE1O.PeO 
CMP 一 zero Pa0e 
DEC 一 Zero Page 


NOP 

INY 

CMP 一 hmmed'ele 
CA 一 DEX 
Ce -NOP 


CC 一 CPY ~ AbsOolul@ 

CD 一 CMP 一 AO3yolvie 

CE -DEC - Absotute 

Cr 一 NOP 

Do - BNE 

D1 一 CMP -~ LIndirecn Y 
Da? -NOP 

D3 一 ve 

D4 -~ NOP 

DSS 一 CMP 一 ZerD 808 从 
D6 一 DEC -- Zero Page 匡 
D7 ~ NGP 

D6 -CULD 

9D9 一 CMP 一 ADSoluls Y 
DA 一 NOP 


A-54 


De - 


Dc 一 
DD 一 


DE 一 
DF -~ 
E0 一 
E， 一 
E? 一 
和 一 
E4 一 
3 一 
下 6 一 
E7? -~ 
8 一 
E9 一 
EA - 
EB 一 
EC 一 
ED -~ 
EE 一 
EF 一 
Fo 一 
F1 一 
*2 一 
f3 一 
4 一 
815 ~ 
各 一 
?一 
Fe 一 
F9 一 
FA 一 
Fe 一 
站 
fD 一 
FE 一 
FF 一 


NOP 

NOP 

CMP 一 ADpfOluie 天 
DEC 一 Absoiulte 时 
NOP 

CPX 一 immediste 
SBC - !Indirec1 XI 
NOP 

MOP 

CPX ~ Zero Page 
SC 一 2810 Pei 
INMC 一 Ze10 pa89e 
NOP 

JRNX 

S8C 一 imrnegi8te 
NOP 

NOP 

CPx - Absolute 
SBC ~ Absolute 
41NC 一 Absoluye 
NOP 

BEO 

SBC 一 (Indirect Y 
NOP 

NOP 

NOP 

S8C ~ 2910 Pa96. 六 
INC 一 2ere PaSS， 昌 
MOP 

SED 
S8C 一 Abtolvte Y 
NOP 

NOP 

NOP 

SBC 一 AbSeiv18@ ,时 
INC 一 Abholvie, 时 
NOP 


内 部 交流 
G16/4APPLE 组 合 语 
(中 3 一 5/46) 


了 0 


